--- a/IdentitySet.st	Tue Mar 05 10:07:30 2019 +0100
+++ b/IdentitySet.st	Tue Mar 05 12:30:36 2019 +0100
@@ -48,20 +48,6 @@
 "
 ! !
 
-!IdentitySet methodsFor:'Compatibility-Squeak'!
-
-copyWithout:anElement
-    "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 ~~ anElement]
-
-    "
-     #(1 2 3 4 5 6 7) asSet copyWithout:5
-    "
-! !
-
 !IdentitySet methodsFor:'adding & removing'!
 
 removeIdentical:oldObject ifAbsent:exceptionBlock
@@ -103,6 +89,20 @@
     "
 ! !
 
+!IdentitySet methodsFor:'copying'!
+
+copyWithout:anElement
+    "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 ~~ anElement]
+
+    "
+     #(1 2 3 4 5 6 7) asSet copyWithout:5
+    "
+! !
+
 !IdentitySet methodsFor:'private'!
 
 collisionsFor:key