--- a/DebugView.st	Mon Jul 12 17:33:29 1999 +0200
+++ b/DebugView.st	Mon Jul 12 18:29:22 1999 +0200
@@ -3736,6 +3736,9 @@
                     implementorClass isNil ifTrue:[
                         Object errorSignal handle:[:ex |
                             code := 'error while asking method for its source'.
+                            code := code , Character cr , ex signal printString.
+                            code := code , Character cr , 'in: ' , ex suspendedContext printString.
+                                
                             canAccept := false.
                             ex return.
                         ] do:[
@@ -3775,7 +3778,13 @@
                 errMsg := nil.
                 method notNil ifTrue:[
                     Object errorSignal handle:[:ex |
+                        ex signal == Object haltSignal ifTrue:[
+                            ex proceed.
+                        ].
                         code := 'error while asking method for its source'.
+                        code := code , Character cr , ex signal printString.
+                        code := code , Character cr , 'in: ' , ex suspendedContext printString.
+
                         canAccept := false.
                         ex return.
                     ] do:[
@@ -3930,6 +3939,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.228 1999-06-07 15:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.229 1999-07-12 16:29:22 cg Exp $'
 ! !
 DebugView initialize!