--- a/Context.st	Mon Mar 16 10:14:39 2009 +0100
+++ b/Context.st	Mon Mar 16 14:32:36 2009 +0100
@@ -228,7 +228,11 @@
         ('    from ' , con printString) errorPrintCR.
         con := con sender.
         count := count + 1.
-    ] doWhile:[con notNil and:[count < 4 or:[con receiver isCollection]]].
+    ] doWhile:[con notNil and:[count < 5 or:[con receiver isCollection]]].
+    "/ one more
+    con notNil ifTrue:[
+        ('    from ' , con printString) errorPrintCR.
+    ].
 
     "
       #() asSet add:nil
@@ -2335,7 +2339,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.151 2009-02-13 15:21:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.152 2009-03-16 13:32:36 cg Exp $'
 ! !
 
 Context initialize!