--- a/DebugView.st	Fri Feb 27 15:53:43 1998 +0100
+++ b/DebugView.st	Fri Feb 27 19:10:39 1998 +0100
@@ -2707,8 +2707,7 @@
         "
         count := 0.
         [con notNil and:[count <= nChainShown]] whileTrue:[
-
-            (self showingContext:con) ifTrue:[
+            (self showingContext:con nesting:count) ifTrue:[
                 contextArray add:con.
 
                 (MoreDebuggingDetail == true) ifTrue:[
@@ -2866,7 +2865,7 @@
     self showError:'** the process has terminated **'
 !
 
-showingContext:aContext
+showingContext:aContext nesting:nesting
     "return false, if this context is to be skipped.
      Here, we hide some wellKnown methods, which are usually
      not too interesting; 
@@ -2908,6 +2907,7 @@
     or:[sel == #perform:with:with:with:
     or:[sel == #perform:with:with:with:with:]]]])
     ifTrue:[
+        nesting == 0 ifTrue:[^ true].
         mClass == Array ifTrue:[^ false].
         mClass == OrderedCollection ifTrue:[^ false].
     ].
@@ -3783,6 +3783,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.191 1998-02-24 15:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.192 1998-02-27 18:10:39 cg Exp $'
 ! !
 DebugView initialize!