--- a/Tools__VariableList.st	Tue Mar 18 10:57:09 2014 +0100
+++ b/Tools__VariableList.st	Wed Mar 19 11:03:58 2014 +0100
@@ -401,7 +401,8 @@
     changedObject == selectedVariableEntries ifTrue:[
         self selectedVariables value:
             ((selectedVariableEntries value ? #())
-                collect:[:e|e name]).
+                select:[:e| e isString not]         "filter out class name header strings"
+                thenCollect:[:e|e name]).
         ^self.
     ].
 
@@ -875,6 +876,6 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.28 2014-03-05 18:29:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.29 2014-03-19 10:03:58 stefan Exp $'
 ! !