--- a/Fraction.st	Sun Oct 19 23:25:02 2008 +0200
+++ b/Fraction.st	Sun Oct 19 23:25:16 2008 +0200
@@ -395,7 +395,8 @@
 !
 
 asFloat
-    "return a float with (approximately) my value"
+    "return a float with (approximately) my value.
+     Since floats have a limited precision, you usually loose bits when doing this."
 
     |num den numShift denShift bits rslt|
 
@@ -908,6 +909,7 @@
     "Modified: 28.7.1997 / 19:08:40 / cg"
 ! !
 
+
 !Fraction methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1103,7 +1105,7 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.73 2007-04-02 10:16:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.74 2008-10-19 21:25:16 cg Exp $'
 ! !
 
 Fraction initialize!