--- a/Tools_ClassList.st	Sat Oct 20 15:27:28 2012 +0200
+++ b/Tools_ClassList.st	Sat Oct 20 15:38:19 2012 +0200
@@ -1904,6 +1904,12 @@
         ]
     ].
 
+    aClass isLoaded ifFalse:[
+        nm := nm,(' (?) ' colorizeAllWith:Color grey).
+    ] ifTrue:[
+        nm := nm,((' (%1+%2) ' bindWith:aClass methodDictionary size with:aClass class methodDictionary size) colorizeAllWith:Color grey).
+    ].
+
     orgMode := organizerMode value.
     orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
         "/ always show the full name
@@ -1935,22 +1941,22 @@
     "/ full name required if owner is not in the list
     owner := aClass owningClass.
     (owner isNil
-    or:[(self classList value includesIdentical:owner) not]) ifTrue:[
-        ^ nm
+    or:[(self classList value includesIdentical:owner) not]) ifFalse:[
+
+        "/ namespace
+        indent := (nm count:[:char | char == $:]) // 2.
+        indent > 0 ifTrue:[
+            indent := indent * self indentPerPrivacyLevel.
+            indentString := String new:indent withAll:Character space.
+            sortByNameAndInheritance ifTrue:[
+                nm := (self nameListIndentStringFor:owner withNameSpace:useFullName)
+                        , indentString , '::' , aClass nameWithoutPrefix.
+            ] ifFalse:[
+                nm := indentString , '::' , aClass nameWithoutPrefix
+            ]
+        ].
     ].
 
-    "/ namespace
-    indent := (nm count:[:char | char == $:]) // 2.
-    indent > 0 ifTrue:[
-        indent := indent * self indentPerPrivacyLevel.
-        indentString := String new:indent withAll:Character space.
-        sortByNameAndInheritance ifTrue:[
-            nm := (self nameListIndentStringFor:owner withNameSpace:useFullName)
-                    , indentString , '::' , aClass nameWithoutPrefix.
-        ] ifFalse:[
-            nm := indentString , '::' , aClass nameWithoutPrefix
-        ]
-    ].
     ^ nm
 
     "Modified: / 04-07-2011 / 19:00:45 / cg"
@@ -2005,9 +2011,9 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.59 2012-06-05 22:03:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.60 2012-10-20 13:38:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.59 2012-06-05 22:03:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.60 2012-10-20 13:38:19 cg Exp $'
 ! !