--- a/Tools__MethodCategoryCache.st	Wed Jul 05 10:54:48 2017 +0200
+++ b/Tools__MethodCategoryCache.st	Wed Jul 05 10:54:59 2017 +0200
@@ -86,9 +86,11 @@
     lock critical:[
         cachedMethodCategories := Set new.
         Smalltalk allBehaviorsDo:[:eachClass |
-            cachedMethodCategories addAll:eachClass categories 
+            cachedMethodCategories addAll:eachClass methodCategories 
         ].
     ].
+
+    "Modified: / 05-07-2017 / 09:31:55 / cg"
 ! !
 
 !MethodCategoryCache methodsFor:'change & update'!
@@ -151,9 +153,10 @@
 !MethodCategoryCache class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryCache.st,v 1.4 2011-07-03 13:33:26 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '§Id: Tools__MethodCategoryCache.st 7487 2009-10-28 21:11:04Z vranyj1 §'
+    ^ '$Id$'
 ! !
+