--- a/Float.st	Mon Oct 01 23:00:30 2001 +0200
+++ b/Float.st	Tue Oct 02 10:15:17 2001 +0200
@@ -510,7 +510,8 @@
     "/ dont expect this many valid digits on all machines;
     "/ The actual precision is very CPU specific.
 
-    ^ 3.14159265358979323846264338327950288
+    "/ ^ 3.14159265358979323846264338327950288
+    ^ 3.14159265358979323846264338327950288419716939937510582097494459
 
     "Modified: 23.4.1996 / 09:27:02 / cg"
 !
@@ -2112,6 +2113,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.116 2001-09-07 11:42:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.117 2001-10-02 08:14:54 cg Exp $'
 ! !
 Float initialize!

--- a/Fraction.st	Mon Oct 01 23:00:30 2001 +0200
+++ b/Fraction.st	Tue Oct 02 10:15:17 2001 +0200
@@ -116,8 +116,12 @@
     "return the constant pi as Fraction"
 
     ^ self 
-        numerator:  31415926535897932384626434
-        denominator:10000000000000000000000000
+        numerator:  314159265358979323846264343
+        denominator:100000000000000000000000000
+
+"/    ^ self 
+"/        numerator:  314159265358979323846264338327950288419716939937510582097494459
+"/        denominator:100000000000000000000000000000000000000000000000000000000000000
 
     "
      Fraction pi         
@@ -748,6 +752,6 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.50 2000-08-21 22:44:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.51 2001-10-02 08:15:03 cg Exp $'
 ! !
 Fraction initialize!

--- a/LongFloat.st	Mon Oct 01 23:00:30 2001 +0200
+++ b/LongFloat.st	Tue Oct 02 10:15:17 2001 +0200
@@ -211,7 +211,7 @@
 pi
     "return the constant pi as LongFloat"
 
-    ^ 3.14159 asLongFloat
+    ^ 3.14159265358979323846264338327950288419716939937510582097494459 asLongFloat
 
     "Modified: 23.4.1996 / 09:26:31 / cg"
 !
@@ -1014,5 +1014,5 @@
 !LongFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.17 2001-09-04 11:26:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.18 2001-10-02 08:15:10 cg Exp $'
 ! !

--- a/ShortFloat.st	Mon Oct 01 23:00:30 2001 +0200
+++ b/ShortFloat.st	Tue Oct 02 10:15:17 2001 +0200
@@ -257,7 +257,7 @@
 pi
     "return the constant pi as ShortFloat"
 
-    ^ 3.14159 asShortFloat
+    ^ 3.14159265358979323846264338327950288419716939937510582097494459 asShortFloat
 
     "Modified: 23.4.1996 / 09:26:31 / cg"
 !
@@ -1049,5 +1049,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.65 2001-09-04 11:26:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.66 2001-10-02 08:15:17 cg Exp $'
 ! !