--- a/Set.st	Mon Jun 09 20:47:23 2008 +0200
+++ b/Set.st	Mon Jun 09 20:47:41 2008 +0200
@@ -209,8 +209,12 @@
 
 !Set methodsFor:'Compatibility-Squeak'!
 
-copyWithout:anElement
-    ^ self select:[:each | each ~= anElement]
+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
@@ -463,6 +467,7 @@
     "Modified: 30.1.1997 / 14:58:08 / cg"
 ! !
 
+
 !Set methodsFor:'comparing'!
 
 = aCollection
@@ -1116,7 +1121,7 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.101 2008-02-05 13:49:29 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.102 2008-06-09 18:47:41 cg Exp $'
 ! !
 
 Set initialize!