--- a/SharedPool.st	Tue Feb 07 11:00:05 2017 +0100
+++ b/SharedPool.st	Tue Feb 07 11:07:06 2017 +0100
@@ -158,12 +158,19 @@
 !
 
 keyAtValue:value ifAbsent:exceptionValue
+    "return the key (= pool var name) of a value.
+     This is a slow access, since the receiver is searched sequentially.
+     NOTICE:
+        The value is searched using identity compare;
+        use #keyAtEqualValue:ifAbsent: to compare for equality."
+        
     self keysDo:[:k |
         (self at:k) == value ifTrue:[ ^ k ].
     ].
     ^ exceptionValue value
 
     "Created: / 08-09-2011 / 05:51:10 / cg"
+    "Modified (comment): / 07-02-2017 / 11:06:57 / cg"
 !
 
 keys