--- a/Fraction.st	Fri Jun 11 20:12:49 2004 +0200
+++ b/Fraction.st	Fri Jun 11 20:17:09 2004 +0200
@@ -900,13 +900,6 @@
     "Modified: 28.7.1997 / 19:08:40 / cg"
 ! !
 
-!Fraction methodsFor:'encoding'!
-
-encodeOn:anEncoder with:aParameter
-
-    anEncoder encodeFraction:self with:aParameter
-! !
-
 !Fraction methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1092,10 +1085,17 @@
     "Modified: 5.11.1996 / 12:18:46 / cg"
 ! !
 
+!Fraction methodsFor:'visiting'!
+
+acceptVisitor:aVisitor with:aParameter
+
+    ^ aVisitor visitFraction:self with:aParameter
+! !
+
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.69 2004-01-29 13:20:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.70 2004-06-11 18:16:08 stefan Exp $'
 ! !
 
 Fraction initialize!