--- a/Set.st	Fri Jun 11 19:55:26 2004 +0200
+++ b/Set.st	Fri Jun 11 20:12:49 2004 +0200
@@ -595,15 +595,6 @@
     keyArray := keyArray shallowCopy
 ! !
 
-!Set methodsFor:'encoding'!
-
-encodeOn:anEncoder with:aParameter
-
-    anEncoder encodeSet:self with:aParameter
-
-
-! !
-
 !Set methodsFor:'enumerating'!
 
 do:aBlock
@@ -1088,6 +1079,13 @@
 
 ! !
 
+!Set methodsFor:'visiting'!
+
+acceptVisitor:aVisitor with:aParameter
+
+    ^ aVisitor visitSet:self with:aParameter
+! !
+
 !Set::EmptySlot class methodsFor:'instance creation'!
 
 basicNew
@@ -1101,7 +1099,7 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.88 2003-10-09 21:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.89 2004-06-11 18:10:46 stefan Exp $'
 ! !
 
 Set initialize!