diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index f3609caa32c11bc1d3c5ec2d62ecfd9361bf6703..f00b018c4994b0bf27011e135319543ca465e8c4 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -368,7 +368,7 @@
 			     (make-representation-tn
 			      (first (primitive-type-scs
 				      *any-primitive-type*))))
-		       (emit-context-template node block nfp-tn vop)
+		       (emit-context-template node block vop 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