Index: /trunk/ccl/lisp-kernel/x86-macros.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-macros.s	(revision 5152)
+++ /trunk/ccl/lisp-kernel/x86-macros.s	(revision 5153)
@@ -368,5 +368,5 @@
 	
 define([extract_lisptag],[
-	movb $1_b,$2_b
+	movzbl $1_b,$2_l
 	andb [$]tagmask,$2_b
 ])
@@ -374,5 +374,5 @@
 								
 define([extract_fulltag],[
-	movb $1_b,$2_b
+	movzbl $1_b,$2_l
 	andb [$]fulltagmask,$2_b
 ])
@@ -384,5 +384,5 @@
 define([extract_typecode],[
 	new_macro_labels()
-	movb $1_b,$2_b
+	movzbl $1_b,$2_l
 	andb $tagmask,$2_b
 	cmpb $tag_misc,$2_b