Index: /trunk/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 751)
+++ /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 752)
@@ -376,6 +376,6 @@
 (declaim (notinline select-backtrace))
 
-(defmacro new-backtrace-info (dialog youngest oldest tcr)
-  `(vector ,dialog ,youngest ,oldest ,tcr nil (%catch-top ,tcr)))
+(defmacro new-backtrace-info (dialog youngest oldest tcr condition)
+  `(vector ,dialog ,youngest ,oldest ,tcr nil (%catch-top ,tcr) ,condition))
 
 (defun select-backtrace ()
@@ -421,5 +421,6 @@
                                             (last-frame-ptr))
                                         (last-frame-ptr))
-                                      (%current-tcr)))
+                                      (%current-tcr)
+                                      condition))
                 (*backtrace-contexts* (cons context *backtrace-contexts*)))
 	 (with-toplevel-commands :break