--- a/Context.st	Fri Feb 13 16:10:33 2009 +0100
+++ b/Context.st	Fri Feb 13 16:17:51 2009 +0100
@@ -944,7 +944,10 @@
         context printCR.
         context := context sender.
         nOrNil notNil ifTrue:[
-            (count := count+1) > nOrNil ifTrue:[^self].
+            (count := count+1) > nOrNil ifTrue:[
+                '--------------------------' printCR.
+                ^ self   
+            ].
         ]
     ]
 
@@ -2330,7 +2333,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.148 2009-02-13 15:10:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.149 2009-02-13 15:17:51 cg Exp $'
 ! !
 
 Context initialize!