Index: /trunk/ccl/level-1/l1-utils.lisp
===================================================================
--- /trunk/ccl/level-1/l1-utils.lisp	(revision 318)
+++ /trunk/ccl/level-1/l1-utils.lisp	(revision 319)
@@ -286,5 +286,5 @@
 (defun %pop-required-arg-ptr (ptr)
   (if (atom (destructure-state.current ptr))
-    (error "Required arguments in ~s don't match lambda list ~s."
+    (signal-program-error "Required arguments in ~s don't match lambda list ~s."
 	   (destructure-state.whole ptr) (destructure-state.lambda ptr))
     (pop (destructure-state.current ptr))))
@@ -294,5 +294,5 @@
     (if tail
       (if (atom tail)
-	(error "Optional arguments in ~s don't match lambda list ~s."
+	(signal-program-error "Optional arguments in ~s don't match lambda list ~s."
 	       (destructure-state.whole ptr) (destructure-state.lambda ptr))
 	(pop (destructure-state.current ptr)))