--- a/Tools_ClassList.st	Fri Mar 31 19:16:48 2006 +0200
+++ b/Tools_ClassList.st	Fri Mar 31 19:55:41 2006 +0200
@@ -1261,7 +1261,7 @@
 "/                                                               string:nm
 "/                                        ].
                             markApplicationsHolder value== true ifTrue:[
-                                icon := self nameListIconForClass:cls.
+                                icon := self nameListIconForClass:cls theNonMetaclass.
                                 icon isNil ifTrue:[
                                     icon := SystemBrowser emptyIcon
                                 ].
@@ -1630,5 +1630,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.14 2006-03-28 17:44:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.15 2006-03-31 17:55:41 cg Exp $'
 ! !