--- a/Fraction.st	Tue Oct 21 11:09:22 2008 +0200
+++ b/Fraction.st	Tue Oct 21 12:13:29 2008 +0200
@@ -909,7 +909,6 @@
     "Modified: 28.7.1997 / 19:08:40 / cg"
 ! !
 
-
 !Fraction methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -949,7 +948,8 @@
     "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)"
+     CAVEAT: bad name; should be called reduce, as it has a side effect
+     (i.e. this is destructive wrt. the instance values)."
 
     |gcd den|
 
@@ -1105,7 +1105,7 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.74 2008-10-19 21:25:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.75 2008-10-21 10:13:29 cg Exp $'
 ! !
 
 Fraction initialize!