--- a/StringCollection.st	Wed Jul 25 18:11:56 2012 +0200
+++ b/StringCollection.st	Wed Jul 25 19:12:38 2012 +0200
@@ -79,6 +79,8 @@
     "return a new text object with lines taken from the argument, aString"
 
     ^ (self new:1) fromString:aString
+
+    "Modified: / 25-07-2012 / 18:52:47 / cg"
 !
 
 new:size
@@ -174,7 +176,7 @@
      delimiter
     |
 
-    aString isEmpty ifTrue:[^ self ].
+    aString isEmpty ifTrue:[self grow:0. ^ self ].
 
     delimiter := Character cr.
 
@@ -204,7 +206,7 @@
         start := stop + 1
     ]
 
-    "Modified (comment): / 25-07-2012 / 17:58:55 / cg"
+    "Modified: / 25-07-2012 / 18:52:58 / cg"
 ! !
 
 !StringCollection methodsFor:'copying'!
@@ -440,9 +442,9 @@
 !StringCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.45 2012-07-25 16:11:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.46 2012-07-25 17:12:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.45 2012-07-25 16:11:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.46 2012-07-25 17:12:38 cg Exp $'
 ! !