Index: /trunk/source/compiler/ARM/arm-asm.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-asm.lisp	(revision 14554)
+++ /trunk/source/compiler/ARM/arm-asm.lisp	(revision 14555)
@@ -53,8 +53,9 @@
     (let* ((info (find x arm::*arm-subprims* :test #'string-equal :key #'ccl::subprimitive-info-name)))
       (when info
-        (ccl::subprimitive-info-offset info)))))
+        (+ (ccl::backend-subprims-bias ccl::*target-backend*)
+           (ccl::subprimitive-info-offset info))))))
 
 (defun arm-subprimitive-name (addr)
-  (let* ((info (find addr arm::*arm-subprims* :key #'ccl::subprimitive-info-offset)))
+  (let* ((info (find (- addr (ccl::backend-subprims-bias ccl::*target-backend*)) arm::*arm-subprims* :key #'ccl::subprimitive-info-offset)))
     (when info
       (string (ccl::subprimitive-info-name info)))))
Index: /trunk/source/compiler/backend.lisp
===================================================================
--- /trunk/source/compiler/backend.lisp	(revision 14554)
+++ /trunk/source/compiler/backend.lisp	(revision 14555)
@@ -65,5 +65,14 @@
   ;; difference between canonical static address for arch and this
   ;; target's. Usually 0.
-  (lowmem-bias 0))
+  ;; Can be a cons of (static-area-bias . subprims-bias)
+  (%lowmem-bias 0))
+
+(defun backend-lowmem-bias (backend)
+  (let* ((b (backend-%lowmem-bias backend)))
+    (if (atom b) b (car b))))
+
+(defun backend-subprims-bias (backend)
+  (let* ((b (backend-%lowmem-bias backend)))
+    (if (atom b) b (cdr b))))
 
 (defmethod print-object ((b backend) s)
Index: /trunk/source/compiler/subprims.lisp
===================================================================
--- /trunk/source/compiler/subprims.lisp	(revision 14554)
+++ /trunk/source/compiler/subprims.lisp	(revision 14555)
@@ -47,5 +47,5 @@
   ;; against symbols in the arch package.
   (declare (optimize (speed 3) (safety 0)))
-  (+ (backend-lowmem-bias backend)
+  (+ (backend-subprims-bias backend)
      (%subprim-name->offset name  (arch::target-subprims-table
                                    (backend-target-arch backend)))))