--- a/Float.st	Tue Apr 23 09:32:33 1996 +0200
+++ b/Float.st	Tue Apr 23 09:35:32 1996 +0200
@@ -220,21 +220,27 @@
 !Float class methodsFor:'constants'!
 
 pi
-    "return the constant pi"
+    "return the constant pi as Float"
 
     ^ 3.1415926535897932384626434
+
+    "Modified: 23.4.1996 / 09:27:02 / cg"
 !
 
 unity
-    "return the neutral element for multiplication"
+    "return the neutral element for multiplication (1.0) as Float"
 
     ^ 1.0
+
+    "Modified: 23.4.1996 / 09:27:09 / cg"
 !
 
 zero
-    "return the neutral element for addition"
+    "return the neutral element for addition (0.0) as Float"
 
     ^ 0.0
+
+    "Modified: 23.4.1996 / 09:27:15 / cg"
 ! !
 
 !Float class methodsFor:'queries'!
@@ -378,8 +384,13 @@
 !Float methodsFor:'binary storage'!
 
 storeBinaryDefinitionOn:stream manager:manager
+    "store the receiver in a binary format on stream.
+     This is an internal interface for binary storage mechanism."
+
     manager putIdOfClass:(self class) on:stream.
     Float storeBinaryIEEEDouble:self on:stream.
+
+    "Modified: 23.4.1996 / 09:29:48 / cg"
 ! !
 
 !Float methodsFor:'coercion and converting'!
@@ -1067,5 +1078,5 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.36 1996-04-17 20:22:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.37 1996-04-23 07:35:18 cg Exp $'
 ! !