--- a/DebugView.st	Tue Mar 18 12:27:18 2003 +0100
+++ b/DebugView.st	Tue Mar 18 12:27:50 2003 +0100
@@ -140,7 +140,8 @@
     StepInterruptPending := nil.
 
     ControlInterrupt handle:[:ex |
-        'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
+        'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
+        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
         ex proceed
     ] do:[
 
@@ -185,6 +186,7 @@
     "/ to avoid recursive debugging ...
     ControlInterrupt handle:[:ex |
         'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
+        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
         ex proceed
     ] do:[
         aDebugger := self new.
@@ -5839,7 +5841,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.336 2003-03-02 20:48:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.337 2003-03-18 11:27:50 cg Exp $'
 ! !
 
 DebugView initialize!