Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5957)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5958)
@@ -8244,6 +8244,6 @@
             (with-imm-target () (src :address)
               (x862-two-targeted-reg-forms seg ptr src newval ($ x8664::arg_z))
-              (! mem-set-c-bit-variable-value src offset ($ x8664::arg_z))
-              (< ($ x8664::arg_z)))))
+              (! mem-set-c-bit-variable-value src offval ($ x8664::arg_z))
+              (<- ($ x8664::arg_z)))))
         (if constval
           (with-imm-target () (src :address)