--- a/ClassDescription.st	Tue Jun 03 11:26:33 1997 +0200
+++ b/ClassDescription.st	Tue Jun 03 11:56:17 1997 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.5 on 3-apr-1997 at 19:19:00'                     !
-
 Behavior subclass:#ClassDescription
 	instanceVariableNames:'instvars'
 	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
@@ -342,6 +340,30 @@
      read the documentation in ClassOrganizer for more info."
 
     ^ ClassOrganizer for:self
+!
+
+renameCategory:oldCategory to:newCategory
+    "{ Pragma: +optSpace }"
+
+    "rename a category (changes category of those methods).
+     Appends a change record and notifies dependents."
+
+    |any|
+
+    any := false.
+    self methodDictionary do:[:aMethod |
+        aMethod category = oldCategory ifTrue:[
+            aMethod category:newCategory.
+            any := true.
+        ]
+    ].
+    any ifTrue:[
+        self addChangeRecordForRenameCategory:oldCategory to:newCategory.
+        self changed:#methodCategory.
+    ]
+
+    "Modified: 12.6.1996 / 11:49:08 / stefan"
+    "Created: 3.6.1997 / 11:55:05 / cg"
 ! !
 
 !ClassDescription methodsFor:'adding/removing'!
@@ -2384,6 +2406,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.45 1997-05-27 08:35:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.46 1997-06-03 09:55:41 cg Exp $'
 ! !
 ClassDescription initialize!