Index: /trunk/source/lib/nfcomp.lisp
===================================================================
--- /trunk/source/lib/nfcomp.lisp	(revision 14281)
+++ /trunk/source/lib/nfcomp.lisp	(revision 14282)
@@ -1713,5 +1713,10 @@
       (fasl-out-count n)
       (dotimes (i n)
-        (fasl-dump-form (%svref f i))))))
+        (if (= i 0)
+          (target-arch-case
+           (:arm (fasl-dump-form
+                  (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- target::fixnumshift)))) ; host's fixnumshift
+           (t (fasl-dump-form (%svref f i))))
+          (fasl-dump-form (%svref f i)))))))
 
 #+x86-target