--- a/Project.st	Tue Feb 01 14:19:49 2000 +0100
+++ b/Project.st	Tue Feb 01 21:26:23 2000 +0100
@@ -273,18 +273,21 @@
 
 initialize
     SystemProject isNil ifTrue:[
-	NextSequential := 1.
-	SystemProject := self new name:'default'.
-	SystemProject package:'private'.
-	SystemProject defaultNameSpace:Smalltalk.
-	SystemProject comment:'A default (dummy) project. 
+        NextSequential := 1.
+        SystemProject := self new name:'default'.
+        SystemProject package:'private'.
+        SystemProject defaultNameSpace:Smalltalk.
+        SystemProject comment:'A default (dummy) project. 
 Will be made the current project in case no real project is ever activated.'.
 
-	"
-	 the SystemProject does not keep a record if changes,
-	 but instead depends on the changes file - recording anything there.
-	"
-	SystemProject changeSet:nil.
+        false ifTrue:[
+            "
+             the SystemProject does not keep a record if changes,
+             but instead depends on the changes file - recording anything there.
+            "
+            SystemProject changeSet:nil.
+        ].
+        SystemProject changeSet:ChangeSet new
     ].
 
     CurrentProject := SystemProject.
@@ -413,6 +416,17 @@
 
 !Project class methodsFor:'changes management'!
 
+addClassCommentChangeFor:aClass
+    "add a comment-change for aClass to the current project"
+
+    |p|
+
+    p := CurrentProject.
+    p notNil ifTrue:[
+        p addClassCommentChangeFor:aClass 
+    ]
+!
+
 addClassDefinitionChangeFor:aClass
     "add a class-def-change for aClass to the current project"
 
@@ -427,6 +441,20 @@
     "Modified: 3.12.1995 / 13:58:04 / cg"
 !
 
+addInstVarDefinitionChangeFor:aClass
+    "add an instvar-change for aClass to the current project"
+
+    |p|
+
+    p := CurrentProject.
+    p notNil ifTrue:[
+        p addInstVarDefinitionChangeFor:aClass 
+    ]
+
+    "Created: 3.12.1995 / 13:44:58 / cg"
+    "Modified: 3.12.1995 / 13:58:04 / cg"
+!
+
 addMethodCategoryChange:aMethod category:newCategory in:aClass
     "add a method-category-change for aMethod in aClass to the current project"
 
@@ -876,8 +904,20 @@
 
 !Project methodsFor:'changes'!
 
+addClassCommentChangeFor:aClass
+    "add a comment-change for aClass to the receivers changeSet"
+
+    |changeSet|
+
+    (changeSet := self changeSet) notNil ifTrue:[
+        changeSet addClassCommentChangeFor:aClass 
+    ].
+    self rememberChangedClass:aClass
+
+!
+
 addClassDefinitionChangeFor:aClass
-    "add a class-def-change for aClass to the current project"
+    "add a class-def-change for aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -887,8 +927,19 @@
     self rememberChangedClass:aClass
 !
 
+addInstVarDefinitionChangeFor:aClass
+    "add an instvar-definition-change for aClass to the receivers changeSet"
+
+    |changeSet|
+
+    (changeSet := self changeSet) notNil ifTrue:[
+        changeSet addInstVarDefinitionChangeFor:aClass 
+    ].
+    self rememberChangedClass:aClass
+!
+
 addMethodCategoryChange:aMethod category:newCategory in:aClass
-    "add a method-category-change for aMethod in aClass to the current project"
+    "add a method-category-change for aMethod in aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -900,7 +951,7 @@
 !
 
 addMethodChange:aMethod in:aClass
-    "add a method change in aClass to the current project"
+    "add a method change in aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -912,7 +963,7 @@
 !
 
 addMethodPrivacyChange:aMethod in:aClass
-    "add a privacy change for aMethod in aClass to the current project"
+    "add a privacy change for aMethod in aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -924,7 +975,7 @@
 !
 
 addPrimitiveDefinitionsChangeFor:aClass
-    "add a primitiveDef change for aClass to the current project"
+    "add a primitiveDef change for aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -936,7 +987,7 @@
 !
 
 addPrimitiveFunctionsChangeFor:aClass
-    "add a primitiveFuncs change for aClass to the current project"
+    "add a primitiveFuncs change for aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -948,7 +999,7 @@
 !
 
 addPrimitiveVariablesChangeFor:aClass
-    "add a primitiveVars change for aClass to the current project"
+    "add a primitiveVars change for aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -960,7 +1011,7 @@
 !
 
 addRemoveSelectorChange:aSelector in:aClass
-    "add a method-remove change in aClass to the current project"
+    "add a method-remove change in aClass to the receivers changeSet"
 
     |changeSet|
 
@@ -3585,6 +3636,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.146 2000-01-22 20:27:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.147 2000-02-01 20:26:23 cg Exp $'
 ! !
 Project initialize!