--- a/extensions.st	Tue Jun 13 09:01:30 2017 +0200
+++ b/extensions.st	Tue Jun 13 16:50:06 2017 +0200
@@ -1,5 +1,19 @@
 "{ Package: 'stx:libbasic2' }"!
 
+!ArithmeticValue methodsFor:'converting'!
+
+asQDouble
+    "return a QDouble with same value"
+
+    ^ self asFloat asQDouble
+
+    "
+     123 asQDouble
+    "
+
+    "Created: / 13-06-2017 / 16:48:24 / cg"
+! !
+
 !ArithmeticValue methodsFor:'double dispatching'!
 
 differenceFromQDouble:aQDouble
@@ -883,6 +897,20 @@
     q printOn:aStream
 ! !
 
+!Float methodsFor:'coercing & converting'!
+
+asQDouble
+    "return a QDouble with my value"
+
+    ^ QDouble fromFloat:self
+
+    "
+     1.0 asQDouble
+    "
+
+    "Created: / 13-06-2017 / 16:48:57 / cg"
+! !
+
 !Object methodsFor:'dependents-interests'!
 
 addInterest:anInterest