Index: /trunk/ccl/compiler/PPC/ppc2.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 559)
+++ /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 560)
@@ -7006,13 +7006,14 @@
               (when vreg
                 (ppc2-form seg vreg nil newval)))
-            (ensuring-node-target (target vreg)
-               (unless triv-val
-                 (! temp-push-unboxed-word src)
-                 (ppc2-open-undo $undostkblk))
-               (ppc2-form seg target nil newval)
-               (unless triv-val
-                 (! temp-push-unboxed-word src)
-                 (ppc2-open-undo $undostkblk))
-               (! mem-set-c-bit src byte-index (+ 24 bit-index) target))))
+            (progn
+              (unless triv-val
+                (! temp-push-unboxed-word src)
+                (ppc2-open-undo $undostkblk))
+              (let* ((target (ppc2-one-untargeted-reg-form seg newval ppc::arg_z)))
+                (unless triv-val
+                  (! temp-pop-unboxed-word src)
+                  (ppc2-close-undo))
+                (! mem-set-c-bit src byte-index (+ 24 bit-index) target)
+                (<- target)))))
         (progn
           (unless (and triv-val triv-offset)