--- a/LongFloat.st	Tue Apr 17 00:12:06 2012 +0200
+++ b/LongFloat.st	Tue Apr 17 22:24:53 2012 +0200
@@ -402,13 +402,16 @@
 initialize
     "do not write a literal constant here - we cannot depend on the underlying C-compiler here..."
 
-    DefaultPrintFormat := '.19'.  "/ 19 valid digits
-
-    "/ enough digits for 128bit IEEE quads
-    Pi := self readFrom:'3.1415926535897932384626433832795029'. "/ '3.14159265358979323846264338327950288419716939937510582097494459'.
-    E := self readFrom:'2.7182818284590452353602874713526625'.
+    Pi isNil ifTrue:[
+        DefaultPrintFormat := '.19'.  "/ 19 valid digits
+
+        "/ enough digits for 128bit IEEE quads
+        Pi := self readFrom:'3.1415926535897932384626433832795029'. "/ 3.14159265358979323846264338327950288419716939937510582097494459q
+        E  := self readFrom:'2.7182818284590452353602874713526625'.
+    ].
 
     "
+     Pi := nil.
      self initialize
     "
 
@@ -2537,11 +2540,11 @@
 !LongFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.68 2010-09-05 15:48:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.69 2012-04-17 20:24:53 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.68 2010-09-05 15:48:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.69 2012-04-17 20:24:53 stefan Exp $'
 ! !
 
 LongFloat initialize!