--- a/Tools__HierarchicalClassList.st	Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__HierarchicalClassList.st	Fri Nov 30 17:23:39 2012 +0000
@@ -13,7 +13,7 @@
 
 "{ NameSpace: Tools }"
 
-ClassList subclass:#HierarchicalClassList
+Tools::ClassList subclass:#HierarchicalClassList
 	instanceVariableNames:'topClassHolder'
 	classVariableNames:'InheritedEntry'
 	poolDictionaries:''
@@ -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,11 +314,11 @@
 !HierarchicalClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__HierarchicalClassList.st 8059 2012-09-27 20:08:20Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.10 2012/10/30 10:09:09 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__HierarchicalClassList.st 8059 2012-09-27 20:08:20Z vranyj1 $'
+    ^ '$Id: Tools__HierarchicalClassList.st 8074 2012-11-30 17:23:39Z vranyj1 $'
 ! !
 
 HierarchicalClassList initialize!