Index: /release/1.2/source/compiler/nx0.lisp
===================================================================
--- /release/1.2/source/compiler/nx0.lisp	(revision 9764)
+++ /release/1.2/source/compiler/nx0.lisp	(revision 9765)
@@ -1323,5 +1323,5 @@
     (with-program-error-handler
 	(lambda (c)
-	  (setf (afunc-acode p) (nx1-lambda () `(,(runtime-program-error-form c)) nil)))
+	  (setf (afunc-acode p) (nx1-lambda '(&rest args) `(args ,(runtime-program-error-form c)) nil)))
       (handler-bind ((warning (lambda (c)
 				(nx1-whine :program-error c)