Index: /trunk/ccl/lib/describe.lisp
===================================================================
--- /trunk/ccl/lib/describe.lisp	(revision 753)
+++ /trunk/ccl/lib/describe.lisp	(revision 754)
@@ -1548,5 +1548,5 @@
                                      *backtrace-internal-functions*))
    (break-condition :accessor break-condition
-                    :initform ccl::*break-condition*)))
+                    :initarg :break-condition)))
   
 
@@ -1748,5 +1748,6 @@
              :stack-start start
              :stack-end end
-             :tcr tcr)
+             :tcr tcr
+             :break-condition (ccl::bt.break-condition info))
            :tsp-range (make-tsp-stack-range tcr info)
            :vsp-range (make-vsp-stack-range tcr info)