--- a/Tools_FullMethodCategoryList.st	Fri Mar 10 10:59:34 2006 +0100
+++ b/Tools_FullMethodCategoryList.st	Fri Mar 10 11:13:32 2006 +0100
@@ -114,19 +114,15 @@
 
     categories := Set new.
 
-    "return all existing categories"
-    Method allInstancesDo:[:eachMethod |
-	categories add:eachMethod category    
-    ].
+    categories addAll:MethodCategoryCache new allMethodCategories.    
+
     categories := categories asOrderedCollection sort.
     categories addFirst:(self class nameListEntryForALL).
     ^ categories
-
-
 ! !
 
 !FullMethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_FullMethodCategoryList.st,v 1.3 2005-02-02 11:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_FullMethodCategoryList.st,v 1.4 2006-03-10 10:13:32 cg Exp $'
 ! !