Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 4873)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 4874)
@@ -8010,10 +8010,10 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural+ xreg xreg yreg))
+                (! %natural+ xreg yreg))
               (<- xreg))
             (let* ((other (if u31x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural+-c other-reg other-reg (or u31x u31y))
+                (! %natural+-c  other-reg (or u31x u31y))
                 (<- other-reg))))
           (^))))))
@@ -8058,10 +8058,10 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural-logior xreg xreg yreg))
+                (! %natural-logior xreg yreg))
               (<- xreg))
             (let* ((other (if u31x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural-logior-c other-reg other-reg constant)
+                (! %natural-logior-c other-reg constant)
                 (<- other-reg))))
           (^))))))
@@ -8083,10 +8083,10 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural-logxor xreg xreg yreg))
+                (! %natural-logxor xreg yreg))
               (<- xreg))
             (let* ((other (if u32x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural-logxor-c other-reg other-reg constant)
+                (! %natural-logxor-c other-reg constant)
                 (<- other-reg))))
           (^))))))
@@ -8108,10 +8108,10 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural-logand xreg xreg yreg))
+                (! %natural-logand xreg yreg))
               (<- xreg))
             (let* ((other (if u31x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural-logand-c other-reg other-reg constant)
+                (! %natural-logand-c  other-reg constant)
                 (<- other-reg))))
           (^))))))