--- a/Context.st	Fri Feb 13 15:49:50 2009 +0100
+++ b/Context.st	Fri Feb 13 15:55:31 2009 +0100
@@ -919,6 +919,27 @@
     "
 
     "Created: / 3.9.1999 / 14:02:38 / ps"
+!
+
+printAllLevels:nOrNil
+    "print a full walkback starting at the receiver, only print n levels
+     - used only for MiniDebuggers walkback print"
+
+    |context count|
+
+    count := 0.
+    context := self.
+    [context notNil] whileTrue: [
+        context printCR.
+        context := context sender.
+        nOrNil notNil ifTrue:[
+            (count := count+1) > nOrNil ifTrue:[^self].
+        ]
+    ]
+
+    "
+     thisContext printAllLevels:5
+    "
 ! !
 
 !Context methodsFor:'non local control flow'!
@@ -2298,7 +2319,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.146 2009-02-13 14:49:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.147 2009-02-13 14:55:31 cg Exp $'
 ! !
 
 Context initialize!