--- a/DebugView.st	Fri Nov 24 23:43:41 1995 +0100
+++ b/DebugView.st	Fri Nov 24 23:46:33 1995 +0100
@@ -42,7 +42,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.53 1995-11-24 22:43:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.54 1995-11-24 22:46:33 cg Exp $'
 !
 
 documentation
@@ -294,7 +294,13 @@
 
 	    self topView raiseDeiconified.    
 	    ex signal == Exception recursiveExceptionSignal ifTrue:[
-		'DEBUGGER: recursive error ignored' printNL.
+	        self showError:'*** Recursive error in debugger:
+
+>>>> Signal:  ' , ex signal printString , '
+>>>> In:      ' , ex suspendedContext printString , '
+>>>> Message: ' , ex errorString , '
+
+cought & ignored.'.
 		ex return
 	    ].
 	    answer := Dialog