diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp
index 6eaa705a4d7016bffb39e5d8f6336710aa3c18cb..2e3eb7837415a10065e4ce7ebb6196e0d016644a 100644
--- a/compiler/ir2tran.lisp
+++ b/compiler/ir2tran.lisp
@@ -1471,7 +1471,7 @@
   (ir1-convert
    start cont
    (if *converting-for-interpreter*
-       `(%progv vars vals #'(lambda () ,@body))
+       `(%progv ,vars ,vals #'(lambda () ,@body))
        (once-only ((n-save-bs '(%primitive current-binding-pointer)))
 	 `(unwind-protect
 	      (progn