Index: /trunk/source/compiler/nx-basic.lisp
===================================================================
--- /trunk/source/compiler/nx-basic.lisp	(revision 14085)
+++ /trunk/source/compiler/nx-basic.lisp	(revision 14086)
@@ -838,7 +838,7 @@
 	(if ref ;; seen before, mark that multiply referenced.
 	    (setf (acode-afunc-ref-index ref) 0)
-	    (push (setq ref (make-acode-afunc-ref :afunc afunc
-						  :object (decomp-form (afunc-acode afunc))))
-		  *nx-acode-inner-refs*))
+            (progn
+              (push (setq ref (make-acode-afunc-ref :afunc afunc)) *nx-acode-inner-refs*)
+              (setf (acode-afunc-ref-object ref) (decomp-form (afunc-acode afunc)))))
 	ref)
       afunc))