--- a/ClassDescription.st	Mon Oct 03 23:41:25 2016 +0200
+++ b/ClassDescription.st	Tue Oct 04 09:56:46 2016 +0200
@@ -660,6 +660,7 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
+
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 methodsFor
@@ -3195,13 +3196,7 @@
      This does NOT include the metaclasses categories or the superclass categories.
      The returned collection is not sorted by any order."
 
-    |newList|
-
-    newList := Set new.
-    self methodDictionary do:[:aMethod |
-	newList add:(aMethod category ? '* no category *')
-    ].
-    ^ newList
+    ^ self methodCategories
 
     "
      Point categories
@@ -3284,6 +3279,29 @@
     "Modified: 1.4.1997 / 15:49:49 / stefan"
 !
 
+methodCategories
+    "Return a collection of the method-categories known in the receiver class.
+     This does NOT include the metaclasses categories or the superclass categories.
+     The returned collection is not sorted by any order."
+
+    |newList|
+
+    newList := Set new.
+    self methodDictionary do:[:aMethod |
+        newList add:(aMethod category ? '* no category *')
+    ].
+    ^ newList
+
+    "
+     Point methodCategories
+     Point class methodCategories
+    "
+
+    "Modified: 16.4.1996 / 18:06:11 / cg"
+    "Modified: 12.6.1996 / 11:25:59 / stefan"
+    "Created: 1.4.1997 / 15:57:18 / stefan"
+!
+
 methodsInCategory:aCategory
     "helper for fileOut: 
      return an unsorted collection of methods from a given category"