--- a/Tools__VariableList.st	Mon Mar 12 15:50:55 2018 +0100
+++ b/Tools__VariableList.st	Thu Mar 15 11:46:04 2018 +0100
@@ -681,8 +681,16 @@
                 "/ class.
                 "/ Q: Should we rather ignore all superclasses after first class which is not
                 "/ in environment?                       
+                |className classUsed|
 
-                (environment at: cls theNonMetaclass name ifAbsent:[nil]) notNil ifTrue:[
+                className := cls theNonMetaclass name.
+                className isSymbol ifFalse:[
+                    "/ an anon class
+                    classUsed := cls
+                ] ifTrue:[
+                    classUsed := environment at: className ifAbsent:[cls theNonMetaclass].
+                ].
+                classUsed notNil ifTrue:[
                     |varNames classShown|
 
                     (hasSmallSense and:[showingClassVars not]) ifTrue:[