Index: /branches/working-0711/ccl/lisp-kernel/x86-spentry64.s
===================================================================
--- /branches/working-0711/ccl/lisp-kernel/x86-spentry64.s	(revision 7746)
+++ /branches/working-0711/ccl/lisp-kernel/x86-spentry64.s	(revision 7747)
@@ -2700,4 +2700,7 @@
 
 _spentry(makestacklist)
+        __(movq $((1<<63)|fixnummask),%imm0)
+        __(testq %imm0,%arg_y)
+        __(jne 9f)
 	__(movq %arg_y,%imm0)
 	__(addq %imm0,%imm0)
@@ -2724,4 +2727,5 @@
 	__(movq %temp1,%arg_z)
 	__(ret)
+9:      __(uuo_error_reg_not_type(Rarg_y,error_object_not_unsigned_byte))
 _endsubp(makestacklist)