--- a/Set.st	Fri Jul 13 11:13:02 2018 +0200
+++ b/Set.st	Fri Jul 13 12:09:40 2018 +0200
@@ -540,6 +540,16 @@
     ^ oldObjectArg
 !
 
+replaceAll:oldObject with:newObject
+    "replace all oldObjects by newObject in the receiver."
+
+    self 
+        remove:oldObject ifAbsent:[];
+        addOrReplace:newObject.
+
+    "Created: / 13-07-2018 / 12:04:31 / Stefan Vogel"
+!
+
 safeRemove:oldObject 
     "remove the element, oldObject from the collection.
      Return the element 
@@ -886,7 +896,6 @@
 ! !
 
 
-
 !Set methodsFor:'obsolete set operations'!
 
 + aCollection