--- a/QDouble.st	Sun Dec 01 16:11:02 2019 +0100
+++ b/QDouble.st	Sun Dec 01 16:12:19 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2017 by eXept Software AG
               All Rights Reserved
@@ -15,8 +17,8 @@
 
 LimitedPrecisionReal variableByteSubclass:#QDouble
 	instanceVariableNames:''
-	classVariableNames:'DefaultPrintFormat E Epsilon FMax FMin InvFact Ln10 Ln2 NaN Pi
-		QDoubleOne QDoubleZero'
+	classVariableNames:'DefaultPrintFormat DefaultPrintPrecision E Epsilon FMax FMin
+		InvFact Ln10 Ln2 NaN Pi QDoubleOne QDoubleZero'
 	poolDictionaries:''
 	category:'Magnitude-Numbers'
 !
@@ -3188,7 +3190,7 @@
 defaultPrintPrecision
     "return the number of decimal digits printed by default"
 
-    ^ 30
+    ^ DefaultPrintPrecision ? 10
 
     "
      ShortFloat defaultPrintPrecision
@@ -3241,7 +3243,7 @@
 !
 
 numBitsInMantissa
-    "answer the number of bits in the mantissa.
+    "answer the number of bits in the mantissa (the significant).
      Here, a fake number is returned"
 
     ^ (Float numBitsInMantissa - 1) * 4