--- a/StringCollection.st	Fri Jun 03 18:15:16 2011 +0100
+++ b/StringCollection.st	Wed Jun 08 22:53:07 2011 +0100
@@ -312,6 +312,12 @@
     self do:[:l | l notNil ifTrue:[^ l encoding]].
     "/ sigh
     ^ #'unicode'
+!
+
+stringSize
+    ^ self inject:0 into:[:sizeSoFar :eachLine | 
+            sizeSoFar + eachLine size + 1
+        ]
 ! !
 
 !StringCollection methodsFor:'searching'!
@@ -401,9 +407,14 @@
 !StringCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Id: StringCollection.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: StringCollection.st 10643 2011-06-08 21:53:07Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: StringCollection.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: StringCollection.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+!
+
+version_CVS
+    ^ 'Header: /cvs/stx/stx/libbasic/StringCollection.st,v 1.41 2011/04/11 09:17:14 stefan Exp '
 ! !
+