--- a/Float.st	Wed Jun 18 16:53:01 2003 +0200
+++ b/Float.st	Wed Jun 18 16:58:20 2003 +0200
@@ -528,6 +528,7 @@
     "Modified: 23.4.1996 / 09:27:15 / cg"
 ! !
 
+
 !Float class methodsFor:'queries'!
 
 exponentCharacter
@@ -843,7 +844,8 @@
 !Float methodsFor:'coercing & converting'!
 
 asDouble
-    "ST80 compatibility: return a float with same value - thats me"
+    "ST80 compatibility: return a double with receivers value.
+     our floats are the identical to ST80 doubles"
 
     ^ self
 !
@@ -1156,6 +1158,7 @@
     ^ super ~= aNumber
 ! !
 
+
 !Float methodsFor:'mathematical functions'!
 
 exp
@@ -2469,7 +2472,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.145 2003-06-17 23:11:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.146 2003-06-18 14:58:20 cg Exp $'
 ! !
 
 Float initialize!