Index: /trunk/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 333)
+++ /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 334)
@@ -310,6 +310,6 @@
           (t (format *error-output* "Break while interrupt-level less than zero; ignored.")))))
 
-(defun invoke-debugger (&optional string &rest args &aux (fp (%get-frame-ptr)))
-  (let ((c (condition-arg (or string "") args 'simple-condition)))
+(defun invoke-debugger (condition &aux (fp (%get-frame-ptr)))
+  (let ((c (require-type condition 'condition)))
     (when *debugger-hook*
       (let ((hook *debugger-hook*)