--- a/Tools__VariableList.st	Thu May 08 19:49:06 2014 +0200
+++ b/Tools__VariableList.st	Fri May 09 10:55:48 2014 +0200
@@ -659,7 +659,7 @@
                 "/ Q: Should we rather ignore all superclasses after first class which is not
                 "/ in environment?                       
 
-                (environment at: cls name ifAbsent:[nil]) notNil ifTrue:[
+                (environment at: cls theNonMetaclass name ifAbsent:[nil]) notNil ifTrue:[
                     |varNames|
 
                     (hasSmallSense and:[showingClassVars not]) ifTrue:[
@@ -684,7 +684,7 @@
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
     "Modified: / 08-08-2011 / 16:20:58 / cg"
-    "Modified: / 27-04-2014 / 22:34:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-05-2014 / 09:52:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 postBuildWith:aBuilder
@@ -914,6 +914,6 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.31 2014-04-28 15:08:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.32 2014-05-09 08:55:48 vrany Exp $'
 ! !