Index: /trunk/source/compiler/X86/x862.lisp
===================================================================
--- /trunk/source/compiler/X86/x862.lisp	(revision 15051)
+++ /trunk/source/compiler/X86/x862.lisp	(revision 15052)
@@ -7562,5 +7562,6 @@
                    (form (car xforms)))
               (unless (and (eq var (nx2-lexical-reference-p form))
-                           (not (logbitp $vbitsetq (nx-var-bits var))))
+                           (not (logbitp $vbitsetq (nx-var-bits var)))
+                           (var-nvr var))
                 (incf new-nargs)
                 (new-vars var)
@@ -7584,9 +7585,12 @@
           (4 (x862-four-targeted-reg-forms seg (car forms) (car regs) (cadr forms) (cadr regs)  (caddr forms) (caddr regs) (cadddr forms) (cadddr regs))))
         (do* ((vars vars (cdr vars))
+              (forms forms (cdr forms))
               (regs regs (cdr regs)))
              ((null vars))
           (let* ((var (car vars))
                  (reg (car regs)))
-            (x862-do-lexical-setq seg nil (var-ea var) reg)))
+            (unless (and (eq var (nx2-lexical-reference-p (car forms)))
+                         (not (logbitp $vbitsetq (nx-var-bits var))))
+              (x862-do-lexical-setq seg nil (var-ea var) reg))))
         (let* ((diff (- *x862-vstack* *x862-tail-vsp*)))
           (unless (eql 0 diff)