Index: /branches/ia32/compiler/X86/x86-lapmacros.lisp
===================================================================
--- /branches/ia32/compiler/X86/x86-lapmacros.lisp	(revision 8253)
+++ /branches/ia32/compiler/X86/x86-lapmacros.lisp	(revision 8254)
@@ -70,11 +70,7 @@
   (target-arch-case
    (:x8632
-    (if (x86-byte-reg-p dest)
-      `(progn
-	 (movb ($ x8632::tagmask) (%b ,dest))
-	 (andl (%l ,node) (%l ,dest)))
-      `(progn
-	 (movl ($ x8632::tagmask) (% ,dest))
-	 (andl (%l ,node) (%l ,dest)))))
+    `(progn
+       (movl ($ x8632::tagmask) (% ,dest))
+       (andl (%l ,node) (%l ,dest))))
    (:x8664
     `(progn
@@ -85,9 +81,7 @@
   (target-arch-case
    (:x8632
-    (if (and (x86-byte-reg-p node) (x86-byte-reg-p dest))
-      `(progn (movb ($ x8632::fulltagmask) (%b ,dest))
-	      (andb (%b ,node) (%b ,dest)))
-      `(progn (movl ($ x8632::fulltagmask) (%l ,dest))
-	      (andl (%l ,node) (%l ,dest)))))
+    `(progn
+       (movl ($ x8632::fulltagmask) (%l ,dest))
+       (andl (%l ,node) (%l ,dest))))
    (:x8664
     `(progn