Index: /trunk/source/lisp-kernel/arm-spentry.s
===================================================================
--- /trunk/source/lisp-kernel/arm-spentry.s	(revision 14714)
+++ /trunk/source/lisp-kernel/arm-spentry.s	(revision 14715)
@@ -1083,5 +1083,5 @@
         __(movle imm1,arg_y,lsr #1)
         __(ble 8f)
-        __(cmp arg_z,#subtag_double_float)
+        __(cmp arg_z,#subtag_double_float_vector<<fixnumshift)
         __(moveq imm1,arg_y,lsl #1)
         __(addeq imm1,imm1,#node_size)