--- a/Tools__ClassList.st	Fri Jan 20 20:18:19 2017 +0000
+++ b/Tools__ClassList.st	Wed Jan 25 19:02:59 2017 +0000
@@ -1645,11 +1645,17 @@
 "/                                                      onDevice:self window device)
 "/                                                 string:nm
 "/                          ].
-                            markApplicationsHolder value == true ifTrue:[
-                                icon := self iconForClass:eachClass theNonMetaclass.
-                                icon isNil ifTrue:[
-                                    icon := SystemBrowser emptyIcon
-                                ].
+                            eachClass isObsolete ifTrue:[ 
+                                icon := SystemBrowser doNotEnterIcon. 
+                            ] ifFalse:[
+                                markApplicationsHolder value == true ifTrue:[
+                                    icon := self iconForClass:eachClass theNonMetaclass.
+                                    icon isNil ifTrue:[
+                                        "/ icon := SystemBrowser emptyIcon
+                                    ].
+                                ]
+                            ].
+                            icon notNil ifTrue:[
                                 nm := LabelAndIcon icon:icon string:nm
                             ].
                             nm