--- a/Project.st	Thu Mar 02 20:07:28 2000 +0100
+++ b/Project.st	Fri Mar 03 16:40:11 2000 +0100
@@ -287,7 +287,9 @@
             "
             SystemProject changeSet:nil.
         ].
-        SystemProject changeSet:ChangeSet new
+        ChangeSet notNil ifTrue:[
+            SystemProject changeSet:ChangeSet new
+        ].
     ].
 
     CurrentProject := SystemProject.
@@ -3762,6 +3764,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.150 2000-02-07 11:32:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.151 2000-03-03 15:40:11 cg Exp $'
 ! !
 Project initialize!