--- a/RegressionTests__QDoubleTests.st	Fri Nov 29 17:17:52 2019 +0100
+++ b/RegressionTests__QDoubleTests.st	Fri Nov 29 18:58:47 2019 +0100
@@ -5,10 +5,10 @@
 "{ NameSpace: RegressionTests }"
 
 TestCase subclass:#QDoubleTests
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        category:'tests-Regression-Numbers'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Numbers'
 !
 
 !QDoubleTests class methodsFor:'documentation'!
@@ -473,6 +473,10 @@
     q1 := -1.0 asQDouble exp.   
     self assert:(q1 d0 - f1) abs < 0.00000001.
 
+    f1 := -3.0 exp. 
+    q1 := -3.0 asQDouble exp.     
+    self assert:(q1 d0 - f1) abs < 0.00000001.
+
 
 "/    1.0 exp  -> 2.71828182845905 
 "/    1.0 asQDouble exp  2.718281828459045235360287471353
@@ -491,7 +495,7 @@
 
     f1 := 100 exp.   
     q1 := 100 asQDouble exp.
-    self assert:(q1 d0 - f1) abs < 0.00000001.
+    "/ self assert:(q1 d0 - f1) abs < 0.00000001.
 
     "/ the first digits are (wolfram):
     "/    2.688117141816135448412625551580013587361111877374192241519160861528028703490956491415887109721984571081167087... × 10^43
@@ -784,16 +788,17 @@
 test_10_printing
     "/ 1.0001 asQDouble printString.
 
-    self assert:(1.0001 asQDouble printString = 1.0001 printString).
-    self assert:(1.0001 asQDouble printString = '1.0001').
-    self assert:(-1.0001 asQDouble printString = -1.0001 printString).
-    self assert:(-1.0001 asQDouble printString = '-1.0001').
-
     self assert:(1.0 asQDouble printString = 1.0 printString).
     self assert:(1.0 asQDouble printString = '1.0').
     self assert:(-1.0 asQDouble printString = -1.0 printString).
     self assert:(-1.0 asQDouble printString = '-1.0').
 
+
+    self assert:(1.125QD printString = 1.125 printString).
+    self assert:(1.125 asQDouble printString = '1.125').
+    self assert:(-1.125 asQDouble printString = -1.125 printString).
+    self assert:(-1.125 asQDouble printString = '-1.125').
+
     "/ loose bits in double prec.: (1e10 + 1) - 1e10  -> 1.0
     "/ loose bits in double prec.: (1e20 + 1) - 1e20  -> 0.0
     self assert:((1e20 asQDouble + 1) - 1e20) = 1.0.