--- a/DebugView.st	Sat Jan 11 14:02:11 1997 +0100
+++ b/DebugView.st	Sat Jan 11 14:04:34 1997 +0100
@@ -116,6 +116,7 @@
         "/ care for the special case, were the Debugger was autoloaded.
         "/ in this case, thisContext IS recursive, but thats no error
         "/ condition.
+
         found := false.
         c := thisContext sender.
         [found not
@@ -129,7 +130,8 @@
 
         found ifFalse:[
             ('DebugView [warning]: reentered with: ', aString) errorPrintCR.
-            ^ MiniDebugger enterWithMessage:'DEBUGGER: recursive error'.
+            ^ MiniDebugger 
+                enterWithMessage:'DebugView [error]: recursive error (in debugger)'.
         ]
     ].
 
@@ -155,7 +157,7 @@
 
     ^ self enterUnconditional:aContext withMessage:aString
 
-    "Modified: 10.1.1997 / 17:35:34 / cg"
+    "Modified: 11.1.1997 / 14:04:11 / cg"
 !
 
 enterUnconditional:aContext withMessage:aString
@@ -3218,5 +3220,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.126 1997-01-11 13:02:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.127 1997-01-11 13:04:34 cg Exp $'
 ! !