--- a/MethodDictionary.st	Tue Feb 07 11:14:10 2017 +0100
+++ b/MethodDictionary.st	Tue Feb 07 11:15:19 2017 +0100
@@ -217,9 +217,12 @@
     "Modified: 23.1.1997 / 14:00:03 / cg"
 !
 
-keyAtValue:value ifAbsent:exceptionBlock
+keyAtIdenticalValue:value ifAbsent:exceptionBlock
     "return the first key with value - 
-     return result of exceptionBlock if no key can be found"
+     return result of exceptionBlock if no key can be found.
+     This is a slow access, since the receiver is searched sequentially.
+     NOTICE:
+        The value is searched using identity compare"
 
     |sz "{ Class: SmallInteger }"|
 
@@ -229,7 +232,7 @@
     ].
     ^ exceptionBlock value
 
-    "Created: 7.6.1996 / 14:53:57 / stefan"
+    "Created: / 07-02-2017 / 11:14:40 / cg"
 ! !