Index: /branches/ide-1.0/ccl/compiler/X86/x862.lisp
===================================================================
--- /branches/ide-1.0/ccl/compiler/X86/x862.lisp	(revision 6623)
+++ /branches/ide-1.0/ccl/compiler/X86/x862.lisp	(revision 6624)
@@ -7561,5 +7561,8 @@
         (when (setq val (pop vals))
           (if (%ilogbitp $vbitspecial (nx-var-bits var))
-            (x862-dbind seg (car val) (var-name var))
+            (progn
+              (x862-dbind seg (car val) (var-name var))
+              (x862-set-var-ea seg var (x862-vloc-ea (- *x862-vstack* *x862-target-node-size*)))
+              )
             (x862-seq-bind-var seg var (car val)))))
       (x862-undo-body seg vreg xfer body old-stack)