Index: /branches/arm/compiler/ARM/arm-lap.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-lap.lisp	(revision 13760)
+++ /branches/arm/compiler/ARM/arm-lap.lisp	(revision 13761)
@@ -115,5 +115,6 @@
           (setf (uvref constants-vector (+ 2 k)) imm)))
       (setf (uvref constants-vector (1- constants-size)) bits ; lfun-bits
-            (uvref constants-vector 1) code-vector)
+            (uvref constants-vector 1) code-vector
+            (uvref constants-vector 0) (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift)))
       #+arm-target (%make-code-executable code-vector)
       constants-vector)))