Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5372)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5373)
@@ -4383,5 +4383,5 @@
         (x862-branch seg (x862-cd-true xfer))
         (with-crf-target () crf
-          (let* ((ea (x862-lexical-reference-ea form)))
+          (let* ((ea (x862-lexical-reference-ea form nil)))
             (if (and ea (memory-spec-p ea))
               (x862-compare-ea-to-nil seg crf xfer ea x86::x86-e-bits nil)
@@ -6831,5 +6831,5 @@
 (defx862 x862-not not (seg vreg xfer cc form)
   (multiple-value-bind (cr-bit true-p) (acode-condition-to-x86-cr-bit cc)
-    (let* ((ea (x862-lexical-reference-ea form)))
+    (let* ((ea (x862-lexical-reference-ea form nil)))
       (if (and ea (memory-spec-p ea))
         (x862-compare-ea-to-nil