Index: /branches/working-0711/ccl/compiler/nx0.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/nx0.lisp	(revision 9763)
+++ /branches/working-0711/ccl/compiler/nx0.lisp	(revision 9764)
@@ -1359,5 +1359,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)