--- a/LargeFloat.st	Tue May 28 09:12:51 2019 +0200
+++ b/LargeFloat.st	Tue May 28 09:21:13 2019 +0200
@@ -1297,10 +1297,11 @@
 
     biasedExponent := exponentArg.
     mantissa := mantissaArg.
-    precision := Infinity positive.
+    precision := self class defaultPrecision.
     self normalize.
 
     "Modified (comment): / 17-07-2017 / 14:50:14 / cg"
+    "Modified: / 28-05-2019 / 09:20:11 / Claus Gittinger"
 !
 
 mantissa:mantissaArg exponent:exponentArg precision:precisionArg  
@@ -1452,6 +1453,12 @@
     "/ ^ LongFloat epsilon
 
     "Modified: / 10-10-2017 / 15:55:12 / cg"
+!
+
+numBitsInMantissa
+    ^ precision
+
+    "Created: / 28-05-2019 / 09:14:36 / Claus Gittinger"
 ! !
 
 !LargeFloat methodsFor:'testing'!