--- a/Tools__HierarchicalClassList.st	Thu Jan 26 14:03:14 2017 +0100
+++ b/Tools__HierarchicalClassList.st	Sat Jan 28 02:10:59 2017 +0100
@@ -282,7 +282,7 @@
         "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
     ] ifTrue:[
         aClass isAbstract ifTrue:[ nm := nm allItalic ].
-        nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) 
+        nm := nm,((' (%1+%2) ' bindWith:(aClass methodsCount) with:(aClass class methodsCount)) 
                                 withColor:self class pseudoEntryForegroundColor).
     ].