--- a/ShortFloat.st	Tue Apr 23 09:32:33 1996 +0200
+++ b/ShortFloat.st	Tue Apr 23 09:35:32 1996 +0200
@@ -86,25 +86,27 @@
 !ShortFloat class methodsFor:'constants'!
 
 pi
-    "return the constant pi"
+    "return the constant pi as ShortFloat"
 
     ^ 3.14159 asShortFloat
 
-
+    "Modified: 23.4.1996 / 09:26:31 / cg"
 !
 
 unity
-    "return the neutral element for multiplication"
+    "return the neutral element for multiplication (1.0) as ShortFloat"
 
     ^ 1.0 asShortFloat
 
+    "Modified: 23.4.1996 / 09:26:51 / cg"
 !
 
 zero
-    "return the neutral element for addition"
+    "return the neutral element for addition (0.0) as ShortFloat"
 
     ^ 0.0 asShortFloat
 
+    "Modified: 23.4.1996 / 09:26:45 / cg"
 ! !
 
 !ShortFloat class methodsFor:'queries'!
@@ -541,5 +543,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.3 1996-04-17 20:23:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.4 1996-04-23 07:35:32 cg Exp $'
 ! !