--- a/DebugView.st	Thu Jun 05 13:25:30 2008 +0200
+++ b/DebugView.st	Thu Jun 05 13:36:05 2008 +0200
@@ -1114,10 +1114,10 @@
 "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
             IgnoredHalts do:[:ign | 
                 (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
-Transcript showCR:'Debugger: ignored halt in ', haltingMethod printString.
+Transcript showCR:'Debugger: ignored halt in ', haltingMethod whoString.
                     ign decrementIgnoreCount.
                     ign isHaltIgnored ifFalse:[
-Transcript showCR:'Debugger: no longer ignore halt in ', haltingMethod printString.
+Transcript showCR:'Debugger: no longer ignore halt in ', haltingMethod whoString.
                         IgnoredHalts remove:ign ifAbsent:[].    
                     ].
                     ^ self.
@@ -5429,6 +5429,7 @@
                 (signal isControlInterrupt) ifTrue:[
                     ignoreBreakpoints == true ifTrue:[
                         'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
+                        ('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
                         ex proceed
                     ].
                 ].
@@ -6341,7 +6342,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.438 2008-06-05 11:25:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.439 2008-06-05 11:36:05 cg Exp $'
 ! !
 
 DebugView initialize!