Index: /trunk/ccl/level-0/X86/x86-float.lisp
===================================================================
--- /trunk/ccl/level-0/X86/x86-float.lisp	(revision 5599)
+++ /trunk/ccl/level-0/X86/x86-float.lisp	(revision 5600)
@@ -95,5 +95,5 @@
   (xorb (%b sfloat) (%b sfloat))
   (shl ($ (1+ IEEE-single-float-exponent-width)) (% sfloat))
-  (bsrq (% imm1) (% imm0))
+  (bsrq (% sfloat) (% imm0))
   (xorq ($ (1- target::nbits-in-word)) (% imm0))
   (box-fixnum imm0 arg_z)