--- a/RegressionTests__FloatTest.st	Fri Nov 29 15:00:54 2019 +0100
+++ b/RegressionTests__FloatTest.st	Fri Nov 29 15:01:41 2019 +0100
@@ -601,22 +601,26 @@
         arcSin     1.0      1.5708      "should be pi/2 (1.5708)"
         arcTan     1.0      0.785398    "should be pi/4 (.785398)"
     ) inGroupsOf:3 do:[:op :x :expected|
-        |rslt rsltShortFloat rsltLongFloat rsltLargeFloat|
+        |rslt rsltShortFloat rsltLongFloat rsltLargeFloat rsltQDouble|
 
         rslt := x perform:op.
         rsltShortFloat := x asShortFloat perform:op.
         rsltLongFloat := x asLongFloat perform:op.
 "/        rsltLargeFloat := arg asLargeFloat perform:op.
+"/        rsltQDouble := x asQDouble perform:op.       
 
         self assert:(rslt class == Float).
         "/ self assert:(rsltShortFloat class == Float).  "/ ??? not a good test; some return a float
         self assert:(rsltLongFloat class == LongFloat).
+"/        self assert:(rsltQDouble class == QDouble).
 
         self assert:( rslt - rsltShortFloat ) < epsilon.
         self assert:( rslt - rsltLongFloat ) < epsilon.
+"/        self assert:( rslt - rsltQDouble ) < epsilon.
 "/        self assert:( rslt - rsltLargeFloat ) < epsilon.
         self assert:( rslt - rslt asShortFloat ) < epsilon.
         self assert:( rslt - rslt asLongFloat ) < epsilon.
+"/        self assert:( rslt - rsltQDouble asFloat) < epsilon.
 "/        self assert:( rslt - rslt asLargeFloat ) < epsilon.
     ].