--- a/ArrayedCollection.st	Tue Feb 14 16:09:53 2012 +0100
+++ b/ArrayedCollection.st	Tue Feb 14 17:43:37 2012 +0100
@@ -239,6 +239,26 @@
     "Modified: 22.1.1997 / 19:35:21 / cg"
 !
 
+with:a1 with:a2 with:a3 with:a4 with:a5 with:a6 with:a7 with:a8 with:a9
+    "return a new SequenceableCollection with nine elements"
+
+    |newCollection|
+
+    newCollection := self new:8.
+    newCollection at:1 put:a1; at:2 put:a2; at:3 put:a3; at:4 put:a4;
+                  at:5 put:a5; at:6 put:a6; at:7 put:a7; at:8 put:a8;
+                  at:9 put:a9.
+    ^ newCollection
+
+    "
+     OrderedCollection with:1 with:2 with:3 with:4 with:5 with:6 with:7 with:8 with:9
+     Array with:1 with:2 with:3 with:4 with:5 with:6 with:7 with:8w ith:9
+    "
+
+    "Modified: / 22-01-1997 / 19:35:21 / cg"
+    "Created: / 14-02-2012 / 17:43:07 / cg"
+!
+
 withAll:aCollection
     "return a new Collection with all elements taken from the argument,
      aCollection"
@@ -483,5 +503,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.58 2009-01-16 13:06:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.59 2012-02-14 16:43:37 cg Exp $'
 ! !