Index: /branches/arm/compiler/ARM/arm-arch.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-arch.lisp	(revision 13831)
+++ /branches/arm/compiler/ARM/arm-arch.lisp	(revision 13832)
@@ -1262,18 +1262,21 @@
 ;;;
 (defarmarchmacro ccl::%get-kernel-global (name)
-  `(ccl::%fixnum-ref 0 (+ ,(ccl::target-nil-value)
-                        ,(%kernel-global
-                          (if (ccl::quoted-form-p name)
-                            (cadr name)
-                            name)))))
+  `(ccl::%fixnum-ref (ash (+ (- nil-value fulltag-nil)
+                           ,(%kernel-global
+                             (if (ccl::quoted-form-p name)
+                               (cadr name)
+                               name)))
+                      (- fixnumshift))))
+    
 
 (defarmarchmacro ccl::%get-kernel-global-ptr (name dest)
   `(ccl::%setf-macptr
     ,dest
-    (ccl::%fixnum-ref-macptr 0 (+ ,(ccl::target-nil-value)
-                                ,(%kernel-global
-                                  (if (ccl::quoted-form-p name)
-                                    (cadr name)
-                                    name))))))
+    (ccl::%fixnum-ref-macptr (ash (+ (- nil-value fulltag-nil)
+                                     ,(%kernel-global
+                                       (if (ccl::quoted-form-p name)
+                                         (cadr name)
+                                         name)))
+                              (- fixnumshift)))))
 
 (defarmarchmacro ccl::%target-kernel-global (name)