--- a/DebugView.st	Sat May 16 14:38:36 1998 +0200
+++ b/DebugView.st	Sat May 16 17:41:45 1998 +0200
@@ -2607,7 +2607,8 @@
 setContext:aContext releaseInspectors:releaseInspectors
     "show calling chain from aContext in the walk-back listview"
 
-    |con text method caller caller2 m count showIt c suspendContext nm h|
+    |con text method caller caller2 m count showIt c 
+     suspendContext nm h|
 
     (contextArray size > 0 and:[aContext == (contextArray at:1)]) ifTrue:[
         "no change"
@@ -2660,15 +2661,24 @@
         count := 0.
         [con notNil and:[count <= nChainShown]] whileTrue:[
             (self showingContext:con nesting:count) ifTrue:[
-                contextArray add:con.
-
-                (MoreDebuggingDetail == true) ifTrue:[
-                    nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
+                "/ ignore it, if its in the same
+                "/ method as the previous context
+                (verboseBacktrace ~~ true
+                and:[count > 0 
+                and:[contextArray last method == con method]]) ifTrue:[
+                    "/ skip it, if its in the same method
+                    "/ as the called context.
                 ] ifFalse:[
-                    nm := con printString.
+                    contextArray add:con.
+
+                    (MoreDebuggingDetail == true) ifTrue:[
+                        nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
+                    ] ifFalse:[
+                        nm := con printString.
+                    ].
+                    text add:nm.
+                    count := count + 1.
                 ].
-                text add:nm.
-                count := count + 1.
             ].
 
             method := con method.
@@ -2771,7 +2781,7 @@
     ^ true
 
     "Created: / 14.12.1995 / 19:10:31 / cg"
-    "Modified: / 17.1.1998 / 02:09:59 / cg"
+    "Modified: / 16.5.1998 / 16:47:12 / cg"
 !
 
 setContextSkippingInterruptContexts:aContext
@@ -3747,6 +3757,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.199 1998-04-27 13:54:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.200 1998-05-16 15:41:45 cg Exp $'
 ! !
 DebugView initialize!