--- a/Tools__VariableList.st	Tue Jul 25 11:04:17 2017 +0200
+++ b/Tools__VariableList.st	Wed Jul 26 12:29:03 2017 +0200
@@ -550,7 +550,6 @@
 !
 
 listOfVariables
-
     |nameList numClasses classes class commonSubclass showingClassVars
      sortByName groupByInheritance classesAlreadyProcessed hasSmallSense smallSenseManager info |
 
@@ -682,7 +681,7 @@
                     sortByName ifTrue:[
                         varNames := varNames copy sort.
                     ].    
-                    varNames reversed do:[:varName|
+                    varNames reverseDo:[:varName|
                         |entry|
                         nameList addFirst: (entry := self listEntryForClass: cls name: varName info: info).
                         classShown ifFalse:[ entry classShown:classShown ].
@@ -703,6 +702,7 @@
     "Created: / 05-02-2000 / 13:42:11 / cg"
     "Modified: / 08-08-2011 / 16:20:58 / cg"
     "Modified: / 28-10-2014 / 11:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 25-07-2017 / 17:51:15 / stefan"
 !
 
 postBuildWith:aBuilder