--- a/Dictionary.st	Tue Jul 16 11:54:35 2013 +0200
+++ b/Dictionary.st	Tue Jul 16 17:19:54 2013 +0200
@@ -232,6 +232,7 @@
     ^ self = aDictionary
 ! !
 
+
 !Dictionary methodsFor:'accessing'!
 
 associationAt:aKey
@@ -707,13 +708,14 @@
 
 removeAllKeys:aKeyCollection ifAbsent:aBlock
     "remove all associations under each key in aKeyCollection from the collection.
-     If it was not in the collection return the result from evaluating aBlock.
+     If it was not in the collection return the result from evaluating aBlock
+     (invoked for each missing element).
 
      WARNING: do not remove elements while iterating over the receiver.
-	      See #saveRemoveKey: to do this."
+              See #saveRemoveKey: to do this."
 
     aKeyCollection do:[:eachKey |
-	self removeKey:eachKey ifAbsent:aBlock
+        self removeKey:eachKey ifAbsent:aBlock
     ].
 !
 
@@ -2078,10 +2080,10 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.113 2013-06-04 08:33:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.114 2013-07-16 15:19:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.113 2013-06-04 08:33:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.114 2013-07-16 15:19:54 cg Exp $'
 ! !