--- a/Context.st	Fri Sep 03 14:33:50 1999 +0200
+++ b/Context.st	Fri Sep 03 14:49:21 1999 +0200
@@ -787,6 +787,29 @@
     "
 !
 
+fullPrintAllLevels: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 fullPrint.
+        context := context sender.
+        nOrNil ifNotNil:[
+            (count := count+1) > nOrNil ifTrue:[^self].
+        ]
+    ]
+
+    "
+     thisContext fullPrintAll
+    "
+
+    "Created: / 3.9.1999 / 14:02:38 / ps"
+!
+
 fullPrintAllOn:aStream
     "print a full walkback starting at the receiver
      - used only for MiniDebuggers walkback print"
@@ -1897,6 +1920,6 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.100 1999-08-25 16:24:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.101 1999-09-03 12:49:21 ps Exp $'
 ! !
 Context initialize!