--- a/OrderedDictionary.st	Sun May 15 21:18:27 2016 +0200
+++ b/OrderedDictionary.st	Mon May 16 08:37:21 2016 +0200
@@ -937,6 +937,11 @@
 !
 
 removeKey:aKey ifAbsent:aBlock
+    "remove key (and the associated value) from the receiver, 
+     return the value previously stored there.
+     If it was not in the collection return the result
+     from evaluating aBlock."
+     
     |oldValue|
 
     oldValue := super removeKey:aKey ifAbsent:aBlock.