--- 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 $'
 ! !

--- a/Project.st	Wed Oct 27 17:26:04 1999 +0200
+++ b/Project.st	Wed Oct 27 18:17:24 1999 +0200
@@ -1640,6 +1640,7 @@
 
     out nextPutAll:') asOrderedCollection.
 
+"/ see if there is a classLibrary
 (Smalltalk loadClassLibraryIfAbsent:''' , self libraryName , ''') ifTrue:[
     |handle loaded|
 
@@ -1657,11 +1658,14 @@
     ].
 ].
 
-files do:[:s |
+"/ load files which are not in the classLibrary (all if there is none)
+files size > 0 ifTrue:[
+  files do:[:s |
     ''.'' infoPrint.
     Smalltalk fileIn:s.
+  ].
+  '' '' infoPrintCR.
 ].
-'' '' infoPrintCR.
 '' done (' , myPackage , ').'' infoPrintCR.
 '.
 
@@ -3344,6 +3348,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.128 1999-10-16 11:13:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.129 1999-10-27 16:17:24 stefan Exp $'
 ! !
 Project initialize!