--- a/Tools_HierarchicalClassList.st	Tue Oct 30 11:08:53 2012 +0100
+++ b/Tools_HierarchicalClassList.st	Tue Oct 30 11:09:09 2012 +0100
@@ -270,8 +270,14 @@
     nm := aClass name.
     nm isNil ifTrue:[^ '???'].
 
+    aClass isLoaded ifFalse:[
+        "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
+    ] ifTrue:[
+        nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) 
+                                colorizeAllWith:self class pseudoEntryForegroundColor).
+    ].
+
     indent := 0.
-
     superClass := aClass superclass.
     [superClass notNil] whileTrue:[
         indent := indent + 1.
@@ -308,7 +314,7 @@
 !HierarchicalClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.9 2009-05-01 17:37:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.10 2012-10-30 10:09:09 cg Exp $'
 ! !
 
 HierarchicalClassList initialize!