--- a/Dictionary.st	Tue Jul 18 11:01:52 2000 +0200
+++ b/Dictionary.st	Tue Jul 18 11:07:00 2000 +0200
@@ -228,6 +228,7 @@
 		unmarshallDictionaryTypeStructure: anODLTypeStructure
 			class: self! !
 
+
 !Dictionary methodsFor:'accessing'!
 
 associationAt:aKey
@@ -1054,6 +1055,13 @@
     valueArray := valueArray shallowCopy
 ! !
 
+!Dictionary methodsFor:'encoding'!
+
+encodeOn:anEncoder with:aParameter
+
+    anEncoder encodeDictionary:self with:aParameter
+! !
+
 !Dictionary methodsFor:'enumerating'!
 
 allKeysDo:aBlock
@@ -1815,6 +1823,6 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.67 2000-04-07 08:13:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.68 2000-07-18 09:07:00 stefan Exp $'
 ! !
 Dictionary initialize!