Index: /branches/arm/compiler/ARM/arm-vinsns.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-vinsns.lisp	(revision 13855)
+++ /branches/arm/compiler/ARM/arm-vinsns.lisp	(revision 13856)
@@ -2011,5 +2011,5 @@
                                  (size :u32)))
   (tst src (:$ #xe0000000))
-  (moveq result (:lsr src (:$ arm::fixnumshift)))
+  (moveq result (:lsl src (:$ arm::fixnumshift)))
   (beq :done)
   (cmp src (:$ 0))