--- a/Set.st	Tue Mar 05 12:52:46 2019 +0100
+++ b/Set.st	Tue Mar 05 12:54:03 2019 +0100
@@ -235,37 +235,6 @@
 
 !Set methodsFor:'Compatibility-Squeak'!
 
-copyWithout:elementToSkip
-    "return a new collection consisting of a copy of the receiver, with
-     ALL elements equal to elementToSkip are left out.
-     No error is reported, if elementToSkip is not in the collection."
-
-    ^ self select:[:each | each ~= elementToSkip]
-
-    "
-     #(1 2 3 4 5 6 7) asSet copyWithout:5
-    "
-!
-
-copyWithoutAll:elementsToSkip
-    "return a new collection consisting of a copy of the receiver, with
-     ALL elements equal to elementToSkip are left out.
-     No error is reported, if elementsToSkip is not in the collection."
-
-    elementsToSkip size * self size > 10000 ifTrue:[
-        "speed up everything"
-        ^ self \ (elementsToSkip asSet).
-    ].
-    ^ self \ elementsToSkip
-
-    "
-     #(1 2 3 4 5 6 7) asSet copyWithoutAll:#(3 5 7 9)
-     #(a b c d e f) asIdentitySet copyWithoutAll:#(d e f)
-     #('a' 'b' 'c' 'd' 'e' 'f') asIdentitySet copyWithoutAll:#('d' 'e' 'f')
-     #('a' 'b' 'c' 'd' 'e' 'f') asSet copyWithoutAll:#('d' 'e' 'f')
-    "
-!
-
 like:anObject
     "Answer an object in the receiver that is equal to anObject,
      nil if no such object is found.