Index: /branches/working-0711/ccl/lib/backtrace.lisp
===================================================================
--- /branches/working-0711/ccl/lib/backtrace.lisp	(revision 8035)
+++ /branches/working-0711/ccl/lib/backtrace.lisp	(revision 8036)
@@ -152,6 +152,5 @@
                          (not (= (the fixnum detailed-p) frame-number)))
               (format t "~&~c(~x) : ~D ~a ~d"
-                      (let* ((q (parent-frame p context)))
-                        (if (and q (exception-frame-p q)) #\- #\space))
+                      (if (exception-frame-p p)  #\* #\space)
                       (index->address p) frame-number
                       (if lfun (backtrace-call-arguments context p lfun pc))