--- a/Context.st	Fri Aug 11 19:12:42 2017 +0200
+++ b/Context.st	Fri Aug 18 15:14:01 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1805,6 +1803,25 @@
     "Modified: / 15-03-2017 / 14:16:12 / cg"
 !
 
+fullPrintAllOn:aStream levels:numLevels
+    "print a full walkback (incl arguments) starting at the receiver"
+
+    |count|
+
+    count := 0.
+    self withSendersThroughContextForWhich:[:c | false] do:[:con |
+        con fullPrintOn:aStream. aStream cr.
+        count := count + 1.
+        count >= numLevels ifTrue:[^ self].
+    ].
+
+    "
+     thisContext fullPrintAllOn:Transcript levels:10
+    "
+
+    "Created: / 18-08-2017 / 15:12:17 / cg"
+!
+
 fullPrintAllOn:aStream throughContextForWhich:aBlock
     "print a full walkback (incl arguments) starting at the receiver"