--- a/Tools__VariableList.st	Mon Jun 20 14:24:50 2016 +0200
+++ b/Tools__VariableList.st	Mon Jun 20 14:25:00 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -678,7 +680,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
                     sortByName ifTrue:[
-                        varNames sort.
+                        varNames := varNames copy sort.
                     ].    
                     varNames reversed do:[:varName|
                         |entry|