--- a/OrderedCollection.st	Mon Oct 09 17:41:45 2017 +0200
+++ b/OrderedCollection.st	Mon Oct 09 17:47:23 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -270,15 +268,15 @@
     "return a new collection of size, where all elements are
      initialized to element."
 
-    |newCollection|
-
-    newCollection := self newWithSize:size.
-    newCollection atAllPut:element.
-    ^ newCollection
+    ^ (self newWithSize:size)
+        atAllPut:element;
+        yourself.
 
     "
      OrderedCollection new:10 withAll:1234
     "
+
+    "Modified: / 09-10-2017 / 17:04:11 / stefan"
 !
 
 newFrom:aCollection