--- a/Fraction.st	Fri Mar 28 14:55:09 2003 +0100
+++ b/Fraction.st	Mon Mar 31 11:02:44 2003 +0200
@@ -755,7 +755,10 @@
 !Fraction methodsFor:'private'!
 
 reduced
-    "reduce the receiver"
+    "reduce the receiver; divide the numerator and denominator by their
+     greatest common divisor; if the result is integral, return an Integer.
+     Otherwise, return the normalized receiver.
+     (i.e. this is destructive wrt. the instance values)"
 
     |gcd den|
 
@@ -898,7 +901,7 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.60 2002-11-26 09:57:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.61 2003-03-31 09:02:44 cg Exp $'
 ! !
 
 Fraction initialize!