--- a/Project.st	Thu Jan 11 14:18:06 1996 +0100
+++ b/Project.st	Thu Jan 11 14:51:39 1996 +0100
@@ -326,7 +326,12 @@
 
     name := 'new Project-' , numString.
     packageName := 'private-' , numString.
-     changeSet := ChangeSet new.
+    "/
+    "/ for tiny-configurations, allow ChangeSet to be absent
+    "/
+    ChangeSet notNil ifTrue:[
+        changeSet := ChangeSet new.
+    ].
     self directory:'.'.
     self repositoryModule:(OperatingSystem getLoginName).
     self repositoryDirectory:'private'
@@ -805,5 +810,5 @@
 !Project class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.35 1995-12-09 17:39:20 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.36 1996-01-11 13:51:39 cg Exp $'! !
 Project initialize!