--- a/ArrayedCollection.st	Wed May 15 10:04:35 2002 +0200
+++ b/ArrayedCollection.st	Wed May 15 10:05:24 2002 +0200
@@ -360,6 +360,13 @@
      (it is caught in SequencableCollection)"
 
     ^ self basicSize
+!
+
+speciesForAdding
+     "redefined here, since grow is not cheap.
+      Used by functions which create a growing collection (see collect:with:, for example)"
+
+    ^ OrderedCollection
 ! !
 
 !ArrayedCollection methodsFor:'resizing'!
@@ -447,5 +454,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.48 2000-09-25 14:27:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.49 2002-05-15 08:05:24 cg Exp $'
 ! !