Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5766)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5767)
@@ -8507,5 +8507,5 @@
             (! reload-double-c-arg ($ fpreg :class :fpr :mode :double-float) from)
             (! reload-single-c-arg ($ fpreg :class :fpr :mode :single-float) from))))
-      (if use-registers
+      (if return-registers
         (x862-vpop-register seg ($ x8664::arg_y)))
       (if simple-foreign-args
@@ -8513,5 +8513,5 @@
         (x862-vpop-register seg ($ x8664::arg_z)))
       (x862-lri seg x8664::rax (min 8 nfpr-args))
-      (if use-registers
+      (if return-registers
         (! ff-call-returning-registers)
         (! ff-call) )