--- a/OrderedCollection.st	Mon Feb 20 22:28:50 2006 +0100
+++ b/OrderedCollection.st	Mon Feb 20 22:29:24 2006 +0100
@@ -191,7 +191,7 @@
 
     |newCollection|
 
-    newCollection := (self new:size) grow:size.
+    newCollection := self withSize:size.
     newCollection atAllPut:element.
     ^ newCollection
 
@@ -214,18 +214,6 @@
      OrderedCollection newFrom:#(1 2 3 4)
      OrderedCollection newFrom:(Set with:1 with:2 with:3)
     "
-!
-
-ofSize:n
-    "return a new collection which really provides space for n elements.
-     Kludges around the stupid definition of OrderedCollection>>new:"
-
-    ^ (self new:n) grow:n
-
-    "
-     Array ofSize:4 
-     OrderedCollection ofSize:4 
-    "
 ! !
 
 !OrderedCollection methodsFor:'accessing'!
@@ -1919,5 +1907,5 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.89 2006-02-20 21:20:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.90 2006-02-20 21:29:24 cg Exp $'
 ! !