--- a/Tools__ClassList.st	Thu Mar 15 11:46:04 2018 +0100
+++ b/Tools__ClassList.st	Thu Mar 15 11:46:18 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -1859,9 +1861,15 @@
 
         newSelectionIndices := prevSelection 
                             collect:[:item | 
-                                |cls|
+                                |className cls|
 
-                                cls := environment at:item theNonMetaclass name.   
+                                className := item theNonMetaclass name.
+                                className isSymbol ifFalse:[
+                                    "/ this is an anon class!!
+                                    cls := item theNonMetaclass.
+                                ] ifTrue:[
+                                    cls := environment at:className.   
+                                ].
                                 newList identityIndexOf:cls]
                             thenSelect:[:index | index ~~ 0].