Index: /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 4816)
+++ /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 4817)
@@ -983,5 +983,5 @@
   (movq (:%q val) (:%q scaled-size))
   (sarq (:$ub x8664::fixnumshift) (:%q scaled-size))
-  (movq (:$q #xffff000000000000) (:%q header))
+  (movq (:$q #xe000000000000000) (:%q header))
   (xorq (:%q header) (:%q scaled-size))
   (movd (:%q scaled-size) (:%mmx x8664::mm0))