Index: /trunk/source/level-0/ARM/arm-def.lisp
===================================================================
--- /trunk/source/level-0/ARM/arm-def.lisp	(revision 14885)
+++ /trunk/source/level-0/ARM/arm-def.lisp	(revision 14886)
@@ -185,5 +185,5 @@
   (movls imm0 (:lsl imm0 (:$ 1)))
   (bls @align)
-  (cmp imm1 (:$ arm::subtag-double-float))
+  (cmp imm1 (:$ arm::subtag-double-float-vector))
   (moveq imm0 (:lsl imm0 (:$ 3)))
   (beq @align)