--- a/Project.st	Wed Aug 24 01:15:35 1994 +0200
+++ b/Project.st	Wed Aug 24 03:44:07 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Project.st,v 1.9 1994-08-23 23:15:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Project.st,v 1.10 1994-08-24 01:44:07 claus Exp $
 '!
 
 !Project class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Project.st,v 1.9 1994-08-23 23:15:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Project.st,v 1.10 1994-08-24 01:44:07 claus Exp $
 "
 !
 
@@ -78,7 +78,12 @@
 
 initialize
     CurrentProject isNil ifTrue:[
-        CurrentProject := SystemProject := self new name:'System'
+        CurrentProject := SystemProject := self new name:'System'.
+        "
+         the SystemProject does not keep a record if changes,
+         but instead depends on the changes file - recording anything there.
+        "
+        SystemProject changeSet:nil.
     ]
 
     "Project initialize"
@@ -92,10 +97,6 @@
     |p|
 
     p := CurrentProject.
-    "
-     the SystemProject does not keep a record if changes,
-     but instead depends on the changes file - recording anything there.
-    "
     (p notNil 
      and:[p changeSet notNil]) ifTrue:[
         p changeSet addMethodChange:aMethod in:aClass