--- a/Set.st	Tue Jul 18 11:01:52 2000 +0200
+++ b/Set.st	Tue Jul 18 11:07:00 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 Collection subclass:#Set
 	instanceVariableNames:'tally keyArray'
 	classVariableNames:'DeletedEntry'
@@ -498,6 +500,15 @@
     keyArray := keyArray shallowCopy
 ! !
 
+!Set methodsFor:'encoding'!
+
+encodeOn:anEncoder with:aParameter
+
+    anEncoder encodeSet:self with:aParameter
+
+
+! !
+
 !Set methodsFor:'enumerating'!
 
 do:aBlock
@@ -855,6 +866,7 @@
     ].
 ! !
 
+
 !Set methodsFor:'set operations'!
 
 - aCollection
@@ -973,6 +985,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.63 2000-03-28 17:43:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.64 2000-07-18 09:03:39 stefan Exp $'
 ! !
 Set initialize!