Index: /trunk/source/compiler/ARM/arm-asm.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-asm.lisp	(revision 14954)
+++ /trunk/source/compiler/ARM/arm-asm.lisp	(revision 14955)
@@ -63,5 +63,5 @@
 
 (defun arm-constant-index (form)
-  (let* ((idx (or (assoc form *arm-constants* :test 'equal)
+  (let* ((idx (or (cdr (assoc form *arm-constants* :test 'equal))
                   (let* ((n (length *arm-constants*)))
                     (push (cons form n) *arm-constants*)