--- a/StringCollection.st	Mon Feb 20 22:29:24 2006 +0100
+++ b/StringCollection.st	Mon Feb 20 22:29:35 2006 +0100
@@ -85,6 +85,12 @@
     "return a new string collection with size empty lines"
 
     ^ (super new:size) grow:size
+!
+
+withSize:size
+    "return a new string collection with size empty lines"
+
+    ^ (super new:size) grow:size
 ! !
 
 !StringCollection methodsFor:'converting'!
@@ -291,5 +297,5 @@
 !StringCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.35 2004-06-07 09:03:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.36 2006-02-20 21:29:35 cg Exp $'
 ! !