--- a/Interval.st	Tue Sep 10 14:08:05 2002 +0200
+++ b/Interval.st	Tue Sep 10 14:50:39 2002 +0200
@@ -215,6 +215,15 @@
     "
 ! !
 
+!Interval methodsFor:'encoding'!
+
+encodeOn:anEncoder with:aParameter
+    "this is special. Some encoders want to encode this as a sequenceable collection,
+     some want to encode a less expensive representation"
+
+    anEncoder encodeInterval:self with:aParameter
+! !
+
 !Interval methodsFor:'enumerating'!
 
 collect:aBlock
@@ -478,5 +487,5 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.34 2002-09-10 11:49:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.35 2002-09-10 12:50:39 stefan Exp $'
 ! !