--- a/ShortFloat.st	Tue Jun 17 13:51:43 2003 +0200
+++ b/ShortFloat.st	Tue Jun 17 13:53:05 2003 +0200
@@ -326,6 +326,18 @@
 
 !ShortFloat class methodsFor:'constants'!
 
+e
+    "return the constant e as ShortFloat"
+
+    ^ Float e asShortFloat
+!
+
+pi
+    "return the constant pi as ShortFloat"
+
+    ^ Float pi asShortFloat
+!
+
 unity
     "return the neutral element for multiplication (1.0) as ShortFloat"
 
@@ -1456,5 +1468,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.73 2003-06-17 11:49:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.74 2003-06-17 11:53:05 cg Exp $'
 ! !