Index: /branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp
===================================================================
--- /branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp	(revision 9455)
+++ /branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp	(revision 9456)
@@ -2947,5 +2947,8 @@
                                                  (offset :lisp)
                                                  (value :lisp))
-                                                ((temp :u32)))
+                                                ((temp :lisp)))
+  ;; (mark-as-imm temp)
+  (btrl (:$ub (:apply %hard-regspec-value temp))
+	(:@ (:%seg :rcontext) x8632::tcr.node-regs-mask))
   (movl (:%l offset) (:%l temp))
   (shrl (:$ub (+ 5 x8632::fixnumshift)) (:%l temp))
@@ -2960,5 +2963,9 @@
   :set
   (btsl (:%l temp) (:@ (:%l src)))
-  :done)
+  :done
+  ;; (mark-as-node temp)
+  (xorl (:%l temp) (:%l temp))
+  (btsl (:$ub (:apply %hard-regspec-value temp))
+	(:@ (:%seg :rcontext) x8632::tcr.node-regs-mask)))
 
 (define-x8632-vinsn %natural+  (((result :u32))
Index: /branches/ia32/compiler/X86/x862.lisp
===================================================================
--- /branches/ia32/compiler/X86/x862.lisp	(revision 9455)
+++ /branches/ia32/compiler/X86/x862.lisp	(revision 9456)
@@ -8285,8 +8285,7 @@
                (with-imm-target () (otemp :s32)
                  (! fixnum->signed-natural otemp oreg)
-		 (with-additional-imm-reg (otemp)
-		   (with-imm-target () (val :natural)
-		     (! lisp-word-ref val breg otemp)
-		     (<- val))))
+		 (with-imm-target () (val :natural)
+		   (! lisp-word-ref val breg otemp)
+		   (<- val)))
                (^))))))
 
@@ -8937,6 +8936,5 @@
           (with-imm-target () (src :address)
             (x862-three-targeted-reg-forms seg ptr src offset ($ *x862-arg-y*) newval ($ *x862-arg-z*))
-	    (with-additional-imm-reg ()
-	      (! mem-set-bit-variable-value src ($ *x862-arg-y*) ($ *x862-arg-z*)))
+	    (! mem-set-bit-variable-value src ($ *x862-arg-y*) ($ *x862-arg-z*))
             (<- ($ *x862-arg-z*)))))
       (^)))