Index: /trunk/ccl/level-1/l1-error-signal.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-signal.lisp	(revision 242)
+++ /trunk/ccl/level-1/l1-error-signal.lisp	(revision 243)
@@ -68,4 +68,6 @@
                                              :datum (car errargs)
                                              :expected-type (%type-error-type (cadr errargs))))
+		 (improper-list (make-condition condition-name
+						:datum (car errargs)))
                  (simple-file-error (make-condition condition-name
                                              :pathname (car errargs)