Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 6266)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 6267)
@@ -1665,5 +1665,5 @@
                      (logbitp (hard-regspec-value val-reg)
                               *backend-imm-temps*))
-            (use-imm-temp val-reg))      
+            (use-imm-temp (hard-regspec-value val-reg)))
           (when safe      
             (when (typep safe 'fixnum)
@@ -1739,5 +1739,5 @@
                      (logbitp (hard-regspec-value val-reg)
                               *backend-imm-temps*))
-            (use-imm-temp val-reg))
+            (use-imm-temp (hard-regspec-value val-reg)))
         
           (when safe