Index: /trunk/ccl/level-1/l1-error-signal.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-signal.lisp	(revision 331)
+++ /trunk/ccl/level-1/l1-error-signal.lisp	(revision 332)
@@ -82,4 +82,8 @@
                  (sequence-index-type-error
                   (make-sequence-index-type-error (car errargs) (cadr errargs)))
+		 (cant-construct-arglist
+		  (make-condition condition-name
+				  :datum (car errargs)
+				  :format-control format-string))
                                   
                  (t (make-condition condition-name