--- a/Collection.st	Sat Jan 02 17:37:03 2010 +0000
+++ b/Collection.st	Sat Jan 16 11:26:37 2010 +0000
@@ -228,6 +228,7 @@
     ^ self withSize:n
 ! !
 
+
 !Collection class methodsFor:'Signal constants'!
 
 emptyCollectionSignal
@@ -448,6 +449,7 @@
     ].
 ! !
 
+
 !Collection methodsFor:'accessing'!
 
 anElement
@@ -958,6 +960,14 @@
 
 !
 
+removeAllKeys:aCollection
+    "remove all keys of the argument, aCollection from the receiver.
+     Raises an error, if some element-to-remove is not in the receiver.
+     Notice: only works for keyed collections, such as dictionaries."
+
+    aCollection do:[:element | self removeKey:element].
+!
+
 removeAllSuchThat:aBlock
     "Apply the condition to each element and remove it if the condition is true.  
      Return a collection of removed elements.
@@ -3618,11 +3628,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Collection.st 10489 2009-12-27 20:16:54Z vranyj1 $'
+    ^ '$Id: Collection.st 10494 2010-01-16 11:26:37Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Collection.st,v 1.238 2009/12/07 14:50:17 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Collection.st,v 1.239 2010/01/11 14:49:11 cg Exp §'
 ! !
 
 Collection initialize!
@@ -3630,3 +3640,4 @@
 
 
 
+