--- a/extensions.st	Mon Jul 24 23:08:49 2017 +0200
+++ b/extensions.st	Tue Jul 25 16:26:47 2017 +0200
@@ -5,13 +5,17 @@
 asQDouble
     "return a QDouble with same value"
 
-    ^ self asFloat asQDouble
+    ^ QDouble fromFloat:self asFloat
 
     "
      123 asQDouble
+     (Fraction basicNew setNumerator:246 denominator:2) asQDouble
+     123 asLongFloat asQDouble
+     123 asLargeFloat asQDouble
     "
 
     "Created: / 13-06-2017 / 16:48:24 / cg"
+    "Modified (comment): / 25-07-2017 / 16:06:19 / cg"
 ! !
 
 !ArithmeticValue methodsFor:'double dispatching'!