--- a/OrderedCollection.st	Mon Feb 20 22:20:29 2006 +0100
+++ b/OrderedCollection.st	Mon Feb 20 22:20:39 2006 +0100
@@ -214,6 +214,18 @@
      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'!
@@ -1907,5 +1919,5 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.88 2005-03-10 16:06:11 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.89 2006-02-20 21:20:39 cg Exp $'
 ! !