--- a/Collection.st	Wed Dec 30 07:00:31 2015 +0100
+++ b/Collection.st	Thu Dec 31 06:46:33 2015 +0100
@@ -337,6 +337,8 @@
     ^ self == Collection
 ! !
 
+
+
 !Collection methodsFor:'Compatibility-ANSI'!
 
 identityIncludes:anObject
@@ -3472,7 +3474,7 @@
 select:selectBlock thenCollect:collectBlock as:aCollectionClass
     "return a new collection with all elements from the receiver, for which
      the argument selectBlock evaluates to true.
-     Process the elements throgh collectBlock before adding.
+     Process the elements through collectBlock before adding.
      Returns the same as if three separate collect+select+as: messages were sent,
      but avoids the creation of intermediate collections, so this is nicer for
      big collections."
@@ -3495,7 +3497,9 @@
 
 select:selectBlock thenDo:doBlock
     "combination of select followed by do
-     Avoids the creation of intermediate garbage"
+     The same as if two separate select:+do: messages were sent,
+     but avoids the creation of intermediate collections, 
+     so this is nicer for big collections."
 
     self do:[:eachElement |
         (selectBlock value:eachElement) ifTrue:[