Index: /trunk/ccl/lisp-kernel/ppc-spentry.s
===================================================================
--- /trunk/ccl/lisp-kernel/ppc-spentry.s	(revision 5486)
+++ /trunk/ccl/lisp-kernel/ppc-spentry.s	(revision 5487)
@@ -6577,11 +6577,10 @@
            add in possible offset */
         __(mr arg_y,arg_x)
-0:      __(ldr(arg_y,arrayH.data_vector(arg_y)))
+0:      __(ldr(imm0,arrayH.displacement(arg_y)))
+        __(ldr(arg_y,arrayH.data_vector(arg_y)))
         __(extract_subtag(imm1,arg_y))
         __(cmpri(imm1,subtag_vectorH))
+        __(add arg_z,arg_z,imm0)
         __(bgt local_label(misc_ref_common))
-        __(ldr(imm0,arrayH.displacement(arg_x)))
-        __(mr arg_x,arg_y)
-        __(add arg_z,arg_z,imm0)
         __(b 0b)
 1:              
@@ -6613,11 +6612,10 @@
            add in possible offset */
         __(mr arg_x,temp0)
-0:      __(ldr(arg_x,arrayH.data_vector(arg_x)))
+0:      __(ldr(imm0,arrayH.displacement(arg_x)))
+        __(ldr(arg_x,arrayH.data_vector(arg_x)))
         __(extract_subtag(imm1,arg_x))
         __(cmpri(imm1,subtag_vectorH))
+        __(add arg_y,arg_y,imm0)
         __(bgt local_label(misc_set_common))
-        __(ldr(imm0,arrayH.displacement(temp0)))
-        __(mr temp0,arg_x)
-        __(add arg_y,arg_y,imm0)
         __(b 0b)
 1: