--- a/Behavior.st	Tue Jun 21 16:13:30 2016 +0200
+++ b/Behavior.st	Tue Jun 21 17:36:52 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -14,8 +16,8 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#Behavior
-	instanceVariableNames:'superclass flags methodDictionary
-	lookupCache lookupObject instSize'
+	instanceVariableNames:'superclass flags methodDictionary lookupCache lookupObject
+		instSize'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Classes'
@@ -2118,23 +2120,22 @@
      However, within one inheritance level, there is no specific order,
      in which the entries are enumerated.
      Warning:
-	This will only enumerate globally known classes - for anonymous
-	behaviors, you have to walk over all instances of Behavior."
+        This will only enumerate globally known classes - for anonymous
+        behaviors, you have to walk over all instances of Behavior."
 
     |meta toDo cls|
 
     meta := self isMeta.
 
-    toDo := OrderedCollection new.
-    toDo addAll:self theNonMetaclass subclasses.
+    toDo := self theNonMetaclass subclasses asNewOrderedCollection.
     [toDo notEmpty] whileTrue:[
-	cls := toDo removeFirst.
-	toDo addAll:cls subclasses.
-	meta ifTrue:[
-	    aBlock value:cls class.
-	] ifFalse:[
-	    aBlock value:cls.
-	]
+        cls := toDo removeFirst.
+        toDo addAll:cls subclasses.
+        meta ifTrue:[
+            aBlock value:cls class.
+        ] ifFalse:[
+            aBlock value:cls.
+        ]
     ].
 
 "/    self isMeta ifTrue:[
@@ -5274,3 +5275,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+