--- a/Fraction.st	Wed Jul 09 18:21:05 2014 +0200
+++ b/Fraction.st	Wed Jul 09 18:21:06 2014 +0200
@@ -1144,6 +1144,7 @@
 !Fraction methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitFraction:with: to aVisitor"
 
     ^ aVisitor visitFraction:self with:aParameter
 ! !
@@ -1151,11 +1152,11 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.82 2013-05-27 08:14:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.83 2014-07-09 16:21:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.82 2013-05-27 08:14:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.83 2014-07-09 16:21:06 cg Exp $'
 ! !