Index: /branches/arm/level-0/ARM/arm-utils.lisp
===================================================================
--- /branches/arm/level-0/ARM/arm-utils.lisp	(revision 13859)
+++ /branches/arm/level-0/ARM/arm-utils.lisp	(revision 13860)
@@ -273,5 +273,5 @@
   (extract-subtag imm0 x)
   @done
-  (mov imm0 (:lsr imm0 (:$ arm::word-shift)))
+  (mov imm0 (:lsl imm0 (:$ arm::word-shift)))
   (ldr temp1 (:@ nfn  '*class-table*))
   (add imm0 imm0 (:$ arm::misc-data-offset))