--- a/Tools__HierarchicalClassList.st	Wed Mar 25 15:11:59 2015 +0100
+++ b/Tools__HierarchicalClassList.st	Wed Mar 25 15:14:00 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -252,7 +254,7 @@
     classes := OrderedCollection new.
     (top := self topClassHolder value) notNil ifTrue:[
         top := top theNonMetaclass.
-        classes addAll:(top withAllSuperclasses copy reverse).
+        classes addAll:(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
@@ -323,7 +325,7 @@
 !HierarchicalClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalClassList.st,v 1.16 2014-04-27 19:49:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalClassList.st,v 1.17 2015-03-25 14:14:00 cg Exp $'
 ! !