--- a/ArithmeticValue.st	Sun Jul 02 14:16:49 2017 +0200
+++ b/ArithmeticValue.st	Mon Jul 03 10:19:53 2017 +0200
@@ -734,13 +734,22 @@
 asFloatQ
     "return a quad precision float with same value.
      Notice that longFloats as returned here may or may not provide more
-     precision than a double - depending on the machine's CPU.
+     precision than a double - depending on the machine's CPU
+     (and usually do not provide quad the number of bits of a float)    
      Added for ANSI compatibility"
 
    ^ self asLongFloat
 
     "Created: / 07-09-2001 / 13:38:44 / cg"
-    "Modified (comment): / 21-06-2017 / 10:54:27 / cg"
+    "Modified (comment): / 03-07-2017 / 10:19:13 / cg"
+!
+
+asFloatQD
+    "return a quad double precision float with same value."
+
+   ^ self asQDouble
+
+    "Created: / 03-07-2017 / 10:19:41 / cg"
 !
 
 asFraction