--- a/Tools__VariableList.st	Wed Mar 25 15:14:34 2015 +0100
+++ b/Tools__VariableList.st	Wed Mar 25 15:19:34 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -667,7 +665,7 @@
                     varNames := showingClassVars ifTrue:[ cls classVarNames ] ifFalse:[ cls instVarNames ].
                     classShown := (cls ~~ class). "/ only append the class in the shown name, if the var is inherited
 
-                    varNames copy reverse do:[:varName|
+                    varNames reversed do:[:varName|
                         |entry|
                         nameList addFirst: (entry := self listEntryForClass: cls name: varName info: info).
                         classShown ifFalse:[ entry classShown:classShown ].
@@ -921,6 +919,6 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.37 2015-02-27 19:16:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.38 2015-03-25 14:19:34 cg Exp $'
 ! !