Index: /branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp
===================================================================
--- /branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp	(revision 8231)
+++ /branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp	(revision 8232)
@@ -663,8 +663,8 @@
                                              ((temp :u32)))
   (movl (:%l object) (:%l temp))
-  (andw (:$w x8632::tagmask) (:%w temp))
-  (cmpw (:$w x8632::tag-misc) (:%w temp))
+  (andl (:$b x8632::tagmask) (:%l temp))
+  (cmpl (:$b x8632::tag-misc) (:%l temp))
   (jne :have-tag)
-  (movw (:@ x8632::misc-subtag-offset (:%l object)) (:%w temp))
+  (movb (:@ x8632::misc-subtag-offset (:%l object)) (:%b temp))
   :have-tag
   (leal (:@ (:%l temp) 4) (:%l tag)))