Index: /trunk/source/lib/nfcomp.lisp
===================================================================
--- /trunk/source/lib/nfcomp.lisp	(revision 14295)
+++ /trunk/source/lib/nfcomp.lisp	(revision 14296)
@@ -1715,6 +1715,10 @@
         (if (= i 0)
           (target-arch-case
-           (:arm (fasl-dump-form
-                  (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- target::fixnumshift)))) ; host's fixnumshift
+           (:arm
+	    (let ((arm-subprimitive-address
+		   (find-symbol "ARM-SUBPRIMITIVE-ADDRESS" "ARM")))
+	      (fasl-dump-form
+	       (ash (funcall arm-subprimitive-address '.SPfix-nfn-entrypoint)
+		    (- target::fixnumshift))))) ; host's fixnumshift
            (t (fasl-dump-form (%svref f i))))
           (fasl-dump-form (%svref f i)))))))