--- a/KeyedCollection.st	Wed Mar 13 10:30:52 2019 +0100
+++ b/KeyedCollection.st	Wed Mar 13 10:31:01 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -314,7 +316,7 @@
 at:aKey put:anObject ifPresent:aBlock
     "if the receiver contains an element stored under aKey,
      retrieve it and evaluate aBlock passing the element as argument,
-     return the blocks value.
+     return the block's value.
      If not, store aValue under the key.
      Use this with an error-reporting block, to ensure that no keys are reused"
 
@@ -329,6 +331,7 @@
 
     "Created: / 16-03-2017 / 17:38:00 / stefan"
     "Modified: / 17-03-2017 / 11:37:26 / stefan"
+    "Modified (comment): / 13-03-2019 / 10:26:05 / Claus Gittinger"
 !
 
 at:aKey update:aBlock