--- a/Set.st	Thu Nov 14 16:33:24 2013 +0100
+++ b/Set.st	Thu Nov 14 16:33:50 2013 +0100
@@ -1264,29 +1264,6 @@
     ^ 1
 
     "Modified: / 16.11.2001 / 10:30:14 / cg"
-!
-
-sameContentsAs:aCollection
-    "answer true, if all the elements in self and aCollection
-     are common. This is not defined as #=, since we cannot redefine #hash
-     for aCollection."
-
-    aCollection size ~~ self size ifTrue:[
-        ^ false
-    ].
-
-    ^ aCollection conform:[:e | (self includes:e)]
-
-    "
-      #(1 2 3) asSet sameContentsAs: #(1 2 3)
-      #(1 2 3 4) asSet sameContentsAs: #(1 2 3)
-      #(1 2 3) asSet sameContentsAs: #(1 2 3 3)
-      #(1 2 3 'aa') asSet sameContentsAs: #(1 2 3 'aa')
-      #(1 2 3 'aa') asIdentitySet sameContentsAs: #(1 2 3 'aa')
-      #(1 2 3 #aa) asIdentitySet sameContentsAs: #(1 2 3 #aa)
-    "
-
-    "Modified: / 13-10-2006 / 12:59:01 / cg"
 ! !
 
 !Set methodsFor:'visiting'!
@@ -1320,11 +1297,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.121 2013-11-12 18:14:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.122 2013-11-14 15:33:50 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.121 2013-11-12 18:14:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.122 2013-11-14 15:33:50 stefan Exp $'
 ! !