Index: /trunk/source/level-0/ARM/arm-def.lisp
===================================================================
--- /trunk/source/level-0/ARM/arm-def.lisp	(revision 14909)
+++ /trunk/source/level-0/ARM/arm-def.lisp	(revision 14910)
@@ -293,6 +293,5 @@
   (getvheader imm1 code-vector)
   (header-size imm1 imm1)
-  (mov imm1 (:lsr imm1 (:$ 2)))
-  (cmp imm0 imm1)
+  (cmp imm0 (:lsl imm1 (:$ 2)))
   (movhs arg_z 'nil)
   (movlo arg_z (:lsl imm0 (:$ arm::fixnumshift)))