Index: /trunk/ccl/lisp-kernel/x86-spentry64.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 5487)
+++ /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 5488)
@@ -4352,10 +4352,9 @@
         __(addq %imm0,%arg_z)
         __(movq %arg_x,%arg_y)
-6:      __(movq arrayH.data_vector(%arg_y),%arg_y)
+6:      __(addq arrayH.displacement(%arg_y),%arg_z)
+        __(movq arrayH.data_vector(%arg_y),%arg_y)
         __(extract_subtag(%arg_y,%imm1_b))
         __(cmpb $subtag_vectorH,%imm1_b)
         __(ja C(misc_ref_common))
-        __(addq arrayH.displacement(%arg_x),%arg_z)
-        __(movq %arg_y,%arg_x)
         __(jmp 6b)
 _endsubp(aref2)
@@ -4386,10 +4385,9 @@
         __(addq %imm0,%arg_y)
         __(movq %temp0,%arg_x)
-6:      __(movq arrayH.data_vector(%arg_x),%arg_x)
+6:      __(addq arrayH.displacement(%arg_x),%arg_y)
+        __(movq arrayH.data_vector(%arg_x),%arg_x)
         __(extract_subtag(%arg_x,%imm1_b))
         __(cmpb $subtag_vectorH,%imm1_b)
         __(ja C(misc_set_common))
-        __(addq arrayH.displacement(%temp0),%arg_y)
-        __(movq %arg_x,%temp0)
         __(jmp 6b)
 _endsubp(aset2)