--- a/DebugView.st	Tue Jun 02 18:24:44 1998 +0200
+++ b/DebugView.st	Tue Jun 02 22:27:01 1998 +0200
@@ -2667,7 +2667,9 @@
                 "/ method as the previous context
                 (verboseBacktrace ~~ true
                 and:[count > 0 
-                and:[contextArray last method == con method]]) ifTrue:[
+                and:[contextArray last method == con method
+                and:[(contextArray last isBlockContext not 
+                     & con isBlockContext not) not ]]]) ifTrue:[
                     "/ skip it, if its in the same method
                     "/ as the called context.
                 ] ifFalse:[
@@ -2783,7 +2785,7 @@
     ^ true
 
     "Created: / 14.12.1995 / 19:10:31 / cg"
-    "Modified: / 16.5.1998 / 16:47:12 / cg"
+    "Modified: / 2.6.1998 / 14:44:06 / cg"
 !
 
 setContextSkippingInterruptContexts:aContext
@@ -3759,6 +3761,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.201 1998-05-20 23:47:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.202 1998-06-02 20:27:01 cg Exp $'
 ! !
 DebugView initialize!