Index: /branches/arm/level-0/ARM/arm-utils.lisp
===================================================================
--- /branches/arm/level-0/ARM/arm-utils.lisp	(revision 13796)
+++ /branches/arm/level-0/ARM/arm-utils.lisp	(revision 13797)
@@ -455,6 +455,6 @@
 (defarmlapfunction %kernel-import ((offset arg_z))
   (ref-global imm0 kernel-imports)
-  (unbox-fixnum imm1 arg_z)
-  (ldr arg_z (:@ imm0 imm1))
+  (ldr imm0 (:@ imm0 (:asr arg_z (:$ arm::fixnumshift))))
+  (box-fixnum arg_z imm0)
   (bx lr))