diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index 85a57fff2af97f7086c6e44b054dbcde161e9d52..77f7b3bcade52fbdc9d8f356189651da449df977 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -371,7 +371,7 @@
 		       (emit-context-template
 			node block
 			(template-or-lose 'compute-old-nfp)
-			nfp-tn)
+			nfp-tn vop)
 		       (assert (not (sc-number-stack-p (tn-sc nfp-tn))))
 		       nfp-tn)))
 	       (new (emit-move-arg-template node block res val-tn this-fp