--- a/Tools__InheritanceClassList.st	Wed Jul 26 12:29:03 2017 +0200
+++ b/Tools__InheritanceClassList.st	Wed Jul 26 12:35:13 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -177,19 +179,19 @@
         ^ super listOfClasses
     ].
 
-    classes := top withAllSuperclasses reversed.
     "/ Must check whether environment contains the class and filter it out,
     "/ if not. Think of limited environment to Java classes which should not
     "/ show Object & JavaObject even if they are real superclasses of any Java
     "/ class.
     "/ Q: Should we rather ignore all superclasses after first class which is not
     "/ in environment?
-    classes := classes select:[:class | (environment at: class name ifAbsent:[nil]) notNil ].             
-"/    classes addFirst:InheritedEntry.
-    ^ classes
+    classes := top withAllSuperclasses select:[:class | (environment at: class name ifAbsent:[nil]) notNil ].
+"/    classes add:InheritedEntry.
+    ^ classes reversed
 
     "Modified: / 26-02-2000 / 00:38:48 / cg"
     "Modified: / 27-04-2014 / 20:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-07-2017 / 17:56:04 / stefan"
 ! !
 
 !InheritanceClassList class methodsFor:'documentation'!