Index: /branches/working-0711/ccl/level-0/X86/x86-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-0/X86/x86-clos.lisp	(revision 9643)
+++ /branches/working-0711/ccl/level-0/X86/x86-clos.lisp	(revision 9644)
@@ -134,5 +134,5 @@
   (movq (@ 'table (% fn)) (% temp0))
   (ja @missing)
-  (shrq ($ x8664::word-shift) (% rdx))
+  (shrq ($ 1) (% rdx))
   (movl (@ x8664::misc-data-offset (% temp1) (% imm1)) (%l imm1))
   (testl (%l imm1) (%l imm1))