--- a/Context.st	Fri Aug 18 15:14:01 2017 +0200
+++ b/Context.st	Mon Aug 21 19:15:24 2017 +0200
@@ -1806,20 +1806,36 @@
 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].
-    ].
+    self fullPrintAllOn:aStream levels:numLevels indent:0
 
     "
      thisContext fullPrintAllOn:Transcript levels:10
     "
 
     "Created: / 18-08-2017 / 15:12:17 / cg"
+    "Modified: / 21-08-2017 / 19:14:58 / cg"
+!
+
+fullPrintAllOn:aStream levels:numLevels indent:indent
+    "print a full walkback (incl arguments) starting at the receiver"
+
+    |count|
+
+    count := 0.
+    self 
+        withSendersThroughContextForWhich:[:c | false] 
+        do:[:con |
+            aStream spaces:indent.
+            con fullPrintOn:aStream. aStream cr.
+            count := count + 1.
+            count >= numLevels ifTrue:[^ self].
+        ].
+
+    "
+     thisContext fullPrintAllOn:Transcript levels:10
+    "
+
+    "Created: / 21-08-2017 / 19:14:46 / cg"
 !
 
 fullPrintAllOn:aStream throughContextForWhich:aBlock