Index: /branches/arm/level-0/ARM/arm-hash.lisp
===================================================================
--- /branches/arm/level-0/ARM/arm-hash.lisp	(revision 13819)
+++ /branches/arm/level-0/ARM/arm-hash.lisp	(revision 13820)
@@ -39,6 +39,6 @@
 (defarmlapfunction fast-mod-3 ((number arg_x) (divisor arg_y) (recip arg_z))
   (mov imm0 (:lsr number (:$ arm::fixnumshift)))
-  (smull imm1 imm2 imm0 recip)
-  (smull imm2 imm0 imm1 divisor)
+  (smull imm2 imm1 imm0 recip)
+  (mul imm0 imm1 divisor)
   (sub number number imm0)
   (sub number number divisor)