Index: /trunk/source/compiler/ARM/arm2.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm2.lisp	(revision 15084)
+++ /trunk/source/compiler/ARM/arm2.lisp	(revision 15085)
@@ -3468,5 +3468,5 @@
       (if aconst
         (setq adest (arm2-one-untargeted-reg-form seg aform areg restricted))
-        (arm2-elide-pushes seg apushed (arm2-pop-register seg areg))))
+        (arm2-elide-pushes seg apushed (arm2-pop-register seg (setq adest areg)))))
     (values adest bdest cdest ddest)))