--- a/Project.st	Mon Feb 07 12:31:22 2000 +0100
+++ b/Project.st	Mon Feb 07 12:32:28 2000 +0100
@@ -536,6 +536,19 @@
     "Created: / 16.2.1998 / 12:45:10 / cg"
 !
 
+addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
+    "add a category rename change for aClass to the current project"
+
+    |p|
+
+    p := CurrentProject.
+    p notNil ifTrue:[
+        p addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory 
+    ]
+
+    "Created: / 6.2.2000 / 02:27:35 / cg"
+!
+
 currentProjectDirectory
     "return the name of the directory to use for fileOut.
      The returned name already includes a file-separator at the end, 
@@ -1022,6 +1035,19 @@
 
 !
 
+addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory
+    "add a category rename change in aClass to the receivers changeSet"
+
+    |changeSet|
+
+    (changeSet := self changeSet) notNil ifTrue:[
+        changeSet addRenameCategoryChangeIn:aClass from:oldCategory to:newCategory 
+    ].
+    self rememberChangedClass:aClass
+
+    "Created: / 6.2.2000 / 02:28:07 / cg"
+!
+
 condenseChangesForClassCheckin:aClass
     |changeSet|
 
@@ -3736,6 +3762,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.149 2000-02-03 14:45:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.150 2000-02-07 11:32:28 cg Exp $'
 ! !
 Project initialize!