--- a/PeekableStream.st	Mon Mar 19 11:30:49 2018 +0100
+++ b/PeekableStream.st	Mon Mar 19 11:31:18 2018 +0100
@@ -885,7 +885,7 @@
 !
 
 upToAny:aCollectionOfObjects
-    "read a collection of all objects up-to a element which is contained in
+    "read a collection of all objects up to an element that is contained in
      aCollectionOfObjects and return these elements, but excluding the matching one.
      The next read operation will return the element AFTER anObject.
      If no such element is encountered, all elements up to the end are read
@@ -916,7 +916,7 @@
 !
 
 upToBeforeAny:aCollectionOfObjects
-    "read a collection of all objects up-to a element which is contained in
+    "read a collection of all objects up to an element that is contained in
      aCollectionOfObjects and return these elements, but excluding the matching one.
      The next read operation will return the matching element.
      If no such element is encountered, all elements up to the end are read