--- a/BrowserView.st	Wed Mar 25 15:19:34 2015 +0100
+++ b/BrowserView.st	Wed Mar 25 15:20:09 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -6544,7 +6546,7 @@
     ].
     classes := startClass allSuperclasses.
     thisOne := Array with:startClass.
-    classes := classes reverse , thisOne.
+    classes := classes reversed , thisOne.
 
     fullProtocol ifFalse:[
         classes := classes , startClass allSubclassesInOrder
@@ -9359,7 +9361,7 @@
         ].
     ].
 
-    supers := (currentClass allSuperclasses reverse collect:[:cls | cls name]).
+    supers := (currentClass allSuperclasses reversed collect:[:cls | cls name]).
     subs := (currentClass allSubclasses collect:[:cls | cls name]).
     list := supers.
     (supers notEmpty and:[subs notEmpty]) ifTrue:[
@@ -9990,7 +9992,7 @@
         ].
     ].
 
-    supers := (currentClass allSuperclasses reverse collect:[:cls | cls name]).
+    supers := (currentClass allSuperclasses reversed collect:[:cls | cls name]).
     subs := (currentClass allSubclasses collect:[:cls | cls name]).
     list := supers.
     (supers notEmpty and:[subs notEmpty]) ifTrue:[
@@ -14482,7 +14484,7 @@
                 subList := aClass perform:nameAccessSelector.
             ].
             subList size ~~ 0 ifTrue:[
-                l := l , (subList asOrderedCollection reverse).
+                l := l , (subList asOrderedCollection reversed).
                 aClass nameSpace == currentNamespace ifTrue:[
                     clsName := aClass nameWithoutNameSpacePrefix
                 ] ifFalse:[
@@ -14520,7 +14522,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.865 2015-01-31 13:04:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.866 2015-03-25 14:20:09 cg Exp $'
 ! !