Index: /trunk/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 6942)
+++ /trunk/ccl/level-1/l1-readloop-lds.lisp	(revision 6943)
@@ -141,4 +141,10 @@
                        :count 1
                        :detailed-p t))
+
+(define-toplevel-command :break raw (n) "Show raw contents of backtrace frame <n>"
+   (print-call-history :origin *break-frame*
+                       :start-frame-number n
+                       :count 1
+                       :detailed-p :raw))
 
 (define-toplevel-command :break v (n frame-number) "Return value <n> in frame <frame-number>"
@@ -457,5 +463,7 @@
 
 (defmacro new-backtrace-info (dialog youngest oldest tcr condition current fake db-link level)
-  `(vector ,dialog ,youngest ,oldest ,tcr nil (%catch-top ,tcr) ,condition ,current ,fake ,db-link ,level))
+  (let* ((cond (gensym)))
+  `(let* ((,cond ,condition))
+    (vector ,dialog ,youngest ,oldest ,tcr (cons nil (compute-restarts ,cond)) (%catch-top ,tcr) ,cond ,current ,fake ,db-link ,level))))
 
 (defun select-backtrace ()