--- a/StringCollection.st	Mon May 25 11:29:05 2020 +0100
+++ b/StringCollection.st	Mon May 25 12:32:32 2020 +0100
@@ -105,6 +105,12 @@
 
 !StringCollection methodsFor:'converting'!
 
+asCollectionOfWords
+    ^ (self collect: [:line | line asCollectionOfWords]) flatten
+
+    "Created: / 25-05-2020 / 12:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 asString
     "return myself as a string with embedded cr's"
 
@@ -507,5 +513,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !