Index: /branches/ide-1.0/ccl/level-1/l1-readloop-lds.lisp
===================================================================
--- /branches/ide-1.0/ccl/level-1/l1-readloop-lds.lisp	(revision 6625)
+++ /branches/ide-1.0/ccl/level-1/l1-readloop-lds.lisp	(revision 6626)
@@ -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>"