--- a/patches	Mon Aug 21 13:17:23 2000 +0200
+++ b/patches	Tue Aug 22 00:27:43 2000 +0200
@@ -76,9 +76,16 @@
 Compiler warnUnderscoreInIdentifier:false. 
 Compiler warnSTXSpecials:false.
 
+"/ 
+"/ set the package for changes done below
+"/ 
 Project notNil ifTrue:[
-    Project setDefaultProject.
-    Project current packageName:#'autoloaded'.
+    |p|
+
+    p := Project new.
+    p package:#'autoloaded'. 
+    p comment:'only for autoloaded classes'.
+    Project current:p.
 ].
 
 "/
@@ -176,9 +183,16 @@
 ].
 !
 
+"/ 
+"/ set the package for changes done below
+"/ 
 Project notNil ifTrue:[
-    Project setDefaultProject.
-    Project current packageName:#'patches'.
+    |p|
+
+    p := Project new.
+    p package:#'patches'. 
+    p comment:'only for patches'.
+    Project current:p.
 ].
 
 'patches [info]: installing patches ...' infoPrintCR.