--- a/Class.st	Tue Feb 01 21:26:23 2000 +0100
+++ b/Class.st	Tue Feb 01 22:52:44 2000 +0100
@@ -2771,6 +2771,9 @@
     "append a class-comment-record to aStream"
 
     aClass fileOutCommentOn:aStream.
+    Project notNil ifTrue:[
+        Project addClassCommentChangeFor:aClass
+    ]
 
     "Modified: 4.3.1996 / 16:49:08 / cg"
 !
@@ -2778,10 +2781,14 @@
 addChangeRecordForClassInstvars:aClass to:aStream
     "{ Pragma: +optSpace }"
 
-    "append a class-instvars-record to aStream"
+    "append an instvars-record to aStream"
 
     aClass fileOutClassInstVarDefinitionOn:aStream withNameSpace:true.
     aStream nextPutChunkSeparator.
+    Project notNil ifTrue:[
+        Project addInstVarDefinitionChangeFor:aClass class
+    ]
+
 !
 
 addChangeRecordForClassRemove:oldName to:aStream
@@ -4048,5 +4055,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.363 2000-01-17 11:25:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.364 2000-02-01 21:52:44 cg Exp $'
 ! !