--- a/AbstractHierarchicalItem.st	Mon Jun 29 01:39:50 2015 +0200
+++ b/AbstractHierarchicalItem.st	Sat Jul 04 03:05:44 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999/2015 by eXept Software AG
               All Rights Reserved
@@ -704,10 +706,10 @@
     ].
     children isArray ifTrue:[
         children := children asOrderedCollection
-    ].
-
-    size == 0 ifTrue:[
-        children := OrderedCollection new
+    ] ifFalse:[
+        size == 0 ifTrue:[
+            children := OrderedCollection new
+        ].
     ].
     aList do:[:anItem| anItem parent:self ].
     children addAll:aList beforeIndex:anIndex.
@@ -1910,10 +1912,10 @@
 !AbstractHierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/AbstractHierarchicalItem.st,v 1.5 2015-05-06 13:05:19 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/AbstractHierarchicalItem.st,v 1.5 2015-05-06 13:05:19 cg Exp $'
+    ^ '$Header$'
 ! !