--- a/MethodDictionary.st	Mon May 16 08:37:21 2016 +0200
+++ b/MethodDictionary.st	Mon May 16 08:37:31 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 KeyedCollection variableSubclass:#MethodDictionary
 	instanceVariableNames:''
 	classVariableNames:''
@@ -333,7 +335,10 @@
 !MethodDictionary methodsFor:'removing'!
 
 removeKey:key ifAbsent:failBlock
-    "remove key from dictionary. 
+    "remove key from dictionary, 
+     return the value previously stored there.
+     If it was not in the collection return the result
+     from evaluating failBlock.
      We actually do not remove it, but set it to nil."
 
     |value sz "{ Class: SmallInteger }"|
@@ -393,10 +398,10 @@
 !MethodDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.30 2014-12-26 14:56:48 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.30 2014-12-26 14:56:48 cg Exp $'
+    ^ '$Header$'
 ! !