X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug.lisp;h=e50eb41186d2dc4033fb6ee1a2d03309071a9d90;hb=22e18896b53b0af44b1e18f885c943f6c3e50d01;hp=14f2525a10c865a019ca8cc5f8fde06cf1b91ab0;hpb=75ae7b7af9433418836b65cde48713ab5b8cd2fd;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 14f2525..e50eb41 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -520,7 +520,7 @@ reset to ~S."
         ;; the debugger does afterwards.)
         (format *error-output*
                 "~2&~@<debugger invoked on a ~S~@[ in thread ~A~]: ~
-                    ~2I~_~A~:>~%"
+                    ~2I~_~A~:@>~%"
                 (type-of *debug-condition*)
                 #!+sb-thread sb!thread:*current-thread*
                 #!-sb-thread nil
@@ -536,12 +536,12 @@ reset to ~S."
                   '*debug-condition*
                   ndc-type
                   '*nested-debug-condition*))
-        (when (typep condition 'cell-error)
+        (when (typep *nested-debug-condition* 'cell-error)
           ;; what we really want to know when it's e.g. an UNBOUND-VARIABLE:
           (format *error-output*
                   "~&(CELL-ERROR-NAME ~S) = ~S~%"
-                  '*debug-condition*
-                  (cell-error-name *debug-condition*)))))
+                  '*nested-debug-condition*
+                  (cell-error-name *nested-debug-condition*)))))
 
     (let ((background-p (sb!thread::debugger-wait-until-foreground-thread
                          *debug-io*)))