--- a/Tools__MethodCategoryList.st	Wed Jul 05 10:54:33 2017 +0200
+++ b/Tools__MethodCategoryList.st	Wed Jul 05 10:54:48 2017 +0200
@@ -1336,7 +1336,7 @@
             classesProcessed add:cls.
 
             cls ~~ clsIn ifTrue:[
-                cats := cls categories
+                cats := cls methodCategories
             ] ifFalse:[
                 cats := Array with:catIn.
             ].
@@ -1693,7 +1693,7 @@
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
     "Modified: / 31-08-2011 / 16:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 08-09-2011 / 04:56:47 / cg"
+    "Modified: / 05-07-2017 / 10:52:23 / cg"
 !
 
 makeDependent