--- a/KeyedCollection.st	Wed Sep 04 16:16:19 2019 +0200
+++ b/KeyedCollection.st	Wed Sep 04 16:16:31 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -289,19 +287,6 @@
     "Created: / 16-03-2017 / 17:23:07 / stefan"
 !
 
-at:aKey ifPresent:aBlock
-    "try to retrieve the value stored at aKey.
-     If there is nothing stored under this key, do nothing.
-     Otherwise, evaluate aBlock, passing the retrieved value as argument."
-
-    |v|
-
-    v := self at:aKey ifAbsent:[^ nil].
-    ^ aBlock value:v.
-
-    "Created: / 16-03-2017 / 17:11:27 / stefan"
-!
-
 at:aKey put:anObject
     "add the argument anObject under key, aKey to the receiver.
      Return anObject (sigh).