--- a/Tools__ViewTreeApplication.st	Fri Feb 02 00:54:11 2018 +0100
+++ b/Tools__ViewTreeApplication.st	Mon Feb 05 11:54:07 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2007 by eXept Software AG
 	      All Rights Reserved
@@ -3167,27 +3169,26 @@
 updateChildren
     |queue|
 
-    queue := OrderedCollection new.
-    queue add:self.
+    queue := OrderedCollection with:self.
 
     self criticalDo:[
-	[queue notEmpty] whileTrue:[
-	    |toRemove  elProcessed|
-
-	    elProcessed := queue removeFirst.
-	    toRemove := nil.
-	    elProcessed nonCriticalDo:[:el|
-		el exists ifTrue:[
-		    queue add:el.
-		] ifFalse:[
-		    toRemove isNil ifTrue:[toRemove := OrderedCollection new].
-		    toRemove add:el.
-		]
-	    ].
-	    toRemove notNil ifTrue:[
-		toRemove do:[:el| elProcessed remove:el ].
-	    ].
-	].
+        [queue notEmpty] whileTrue:[
+            |toRemove  elProcessed|
+
+            elProcessed := queue removeFirst.
+            toRemove := nil.
+            elProcessed nonCriticalDo:[:el|
+                el exists ifTrue:[
+                    queue add:el.
+                ] ifFalse:[
+                    toRemove isNil ifTrue:[toRemove := OrderedCollection new].
+                    toRemove add:el.
+                ]
+            ].
+            toRemove notNil ifTrue:[
+                toRemove do:[:el| elProcessed remove:el ].
+            ].
+        ].
     ].
 !