--- a/DebugView.st	Wed Oct 10 00:45:26 2018 +0200
+++ b/DebugView.st	Wed Oct 10 12:22:04 2018 +0200
@@ -1658,6 +1658,8 @@
             con := aContextArray at:i ifAbsent:nil.
             con notNil ifTrue:[
                 sel := con selector ? ''.
+                sel == #halt ifTrue:[^ i+1].
+                
                 (sel isSymbol
                 and:[ (sel startsWith:'raise')
                 and:[ ((rcvr := con receiver) isProtoObject not)
@@ -1677,8 +1679,11 @@
             ].
         ].
     ].
-"/ Transcript showCR:con.
-"/ Transcript show:'1 '; showCR:found.
+
+    "/ Transcript showCR:con.
+    "/ Transcript showCR:con receiver.
+    "/ Transcript showCR:(aContextArray at:1).
+    "/ Transcript show:'1 '; showCR:found.
 
     found isNil ifTrue:[
         "/ this is a kludge, but convenient.
@@ -1874,6 +1879,7 @@
     "Created: / 17-11-2001 / 20:37:49 / cg"
     "Modified: / 28-08-2013 / 20:23:35 / cg"
     "Modified (format): / 13-02-2017 / 19:59:43 / cg"
+    "Modified: / 10-10-2018 / 12:21:45 / Claus Gittinger"
 !
 
 withDebuggingFlagSetDo:aBlock