Index: /branches/arm/level-0/ARM/arm-bignum.lisp
===================================================================
--- /branches/arm/level-0/ARM/arm-bignum.lisp	(revision 13836)
+++ /branches/arm/level-0/ARM/arm-bignum.lisp	(revision 13837)
@@ -1023,6 +1023,7 @@
     ;(dbg t)
     (ldr val (:@ res (:$ arm::misc-data-offset)))
-    (box-fixnum arg_z val)
-    (cmp val (:asr arg_z (:$ arm::fixnumshift)))
+    (box-fixnum temp1 val)
+    (cmp val (:asr temp1 (:$ arm::fixnumshift)))
+    (moveq arg_z temp1)
     (bxeq lr)
     @big