--- a/Tools_ClassCategoryList.st	Sat Nov 22 12:02:59 2008 +0100
+++ b/Tools_ClassCategoryList.st	Tue Nov 25 15:01:52 2008 +0100
@@ -213,6 +213,14 @@
     "/ really exist; however, during browsing, it makes sense.
 
     AdditionalEmptyCategories := nil
+!
+
+renameAdditionalCategories:oldNames to:newName
+    "/ those are simulated - in ST/X, empty categories do not
+    "/ really exist; however, during browsing, it makes sense.
+
+    self removeAdditionalCategories:oldNames.
+    self addAdditionalCategory:newName.
 ! !
 
 !ClassCategoryList methodsFor:'aspects'!
@@ -843,10 +851,17 @@
 
 removeAllAdditionalCategories
     self class removeAllAdditionalCategories
+!
+
+renameAdditionalCategories:oldNames to:newName
+    "/ those are simulated - in ST/X, empty categories do not
+    "/ really exist; however, during browsing, it makes sense.
+
+    self class renameAdditionalCategories:oldNames to:newName
 ! !
 
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.20 2008-10-22 17:38:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.21 2008-11-25 14:01:52 cg Exp $'
 ! !