--- a/MiniDebugger.st	Wed Oct 27 17:26:04 1999 +0200
+++ b/MiniDebugger.st	Wed Oct 27 18:17:24 1999 +0200
@@ -51,7 +51,7 @@
 enter:aContext withMessage:aString mayProceed:mayProceed
     "enter a miniDebugger"
 
-    |active|
+    |active con|
 
     StepInterruptPending := nil.
 
@@ -67,6 +67,16 @@
             active := Processor activeProcess.
             'process: id=' print. active id print. 
             ' name=' print. active name printCR.
+
+	    'context: ' print. aContext printString printCR.
+	    (con := aContext) notNil ifTrue:[
+		con := con sender.
+		' ......: ' print. con printString printCR.
+	        [con notNil] whileTrue:[
+		    con := con sender.
+		    ' ......: ' print. con printString printCR.
+	        ]
+	    ]
         ].
     ].
 
@@ -686,5 +696,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.45 1999-08-05 10:38:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.46 1999-10-27 16:17:23 stefan Exp $'
 ! !