--- a/Project.st	Sun Dec 03 15:36:05 1995 +0100
+++ b/Project.st	Sun Dec 03 15:37:50 1995 +0100
@@ -121,6 +121,19 @@
 
 !Project class methodsFor:'changes management'!
 
+addClassDefinitionChangeFor:aClass
+    |p c|
+
+    p := CurrentProject.
+    (p notNil 
+    and:[(c := p changeSet) notNil]) ifTrue:[
+        c addClassDefinitionChangeFor:aClass 
+    ]
+
+    "Created: 3.12.1995 / 13:44:58 / cg"
+    "Modified: 3.12.1995 / 13:58:04 / cg"
+!
+
 addMethodCategoryChange:aMethod category:newCategory in:aClass
     |p c|
 
@@ -246,11 +259,12 @@
 
     name := 'new Project-' , numString.
     packageName := 'private-' , numString.
-    "/ changeSet := ChangeSet new.
+     changeSet := ChangeSet new.
     self directory:'.'.
     self repositoryDirectory:'private'
 
     "Created: 25.11.1995 / 18:05:44 / cg"
+    "Modified: 3.12.1995 / 13:49:10 / cg"
 ! !
 
 !Project methodsFor:'maintenance'!
@@ -723,5 +737,5 @@
 !Project class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.31 1995-11-25 18:05:19 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.32 1995-12-03 14:37:50 cg Exp $'! !
 Project initialize!