Index: /trunk/source/compiler/ARM/arm-vinsns.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-vinsns.lisp	(revision 15133)
+++ /trunk/source/compiler/ARM/arm-vinsns.lisp	(revision 15134)
@@ -1018,5 +1018,5 @@
                               ((tag :u32)))
   (mov tag (:lsl object (:$ (- arm::nbits-in-word (+ 8 arm::fixnumshift)))))
-  (mov tag (:asr tag (:$ (- arm::nbits-in-word (+ 8 arm::fixnumshift)))))
+  (mov tag (:asr tag (:$ (- arm::nbits-in-word 8))))
   (cmp object (:lsl tag (:$ arm::fixnumshift)))
   (beq :ok)