diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index f852e8f2a6ad1f6179724e4eb6917990a4393bbd..85a57fff2af97f7086c6e44b054dbcde161e9d52 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -368,7 +368,10 @@
 			     (make-representation-tn
 			      (first (primitive-type-scs
 				      *any-primitive-type*))))
-		       (emit-context-template node block vop nfp-tn)
+		       (emit-context-template
+			node block
+			(template-or-lose 'compute-old-nfp)
+			nfp-tn)
 		       (assert (not (sc-number-stack-p (tn-sc nfp-tn))))
 		       nfp-tn)))
 	       (new (emit-move-arg-template node block res val-tn this-fp