--- a/extensions.st	Tue Jun 13 09:00:18 2017 +0200
+++ b/extensions.st	Tue Jun 13 09:00:58 2017 +0200
@@ -1,5 +1,83 @@
 "{ Package: 'stx:libbasic2' }"!
 
+!ArithmeticValue methodsFor:'double dispatching'!
+
+differenceFromQDouble:aQDouble
+    "aQDouble does not know how to subtract the receiver -
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#- coercing:self
+
+    "Created: / 13-06-2017 / 08:55:38 / cg"
+! !
+
+!ArithmeticValue methodsFor:'double dispatching'!
+
+equalFromQDouble:aQDouble
+    "aQDouble does not know how to compare to the receiver -
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#= coercing:self
+
+    "Created: / 13-06-2017 / 08:55:30 / cg"
+! !
+
+!ArithmeticValue methodsFor:'double dispatching'!
+
+lessFromQDouble:aQDouble
+    "aQDouble does not know how to compare to the receiver -
+     Return true if aQDouble < self.
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#< coercing:self
+
+    "Created: / 13-06-2017 / 08:55:20 / cg"
+! !
+
+!ArithmeticValue methodsFor:'double dispatching'!
+
+productFromQDouble:aQDouble
+    "aQDouble does not know how to multiply the receiver -
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#* coercing:self
+
+    "Created: / 13-06-2017 / 08:55:07 / cg"
+! !
+
+!ArithmeticValue methodsFor:'double dispatching'!
+
+quotientFromQDouble:aQDouble
+    "aQDouble does not know how to divide by the receiver -
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#/ coercing:self
+
+    "Created: / 13-06-2017 / 08:54:55 / cg"
+! !
+
+!ArithmeticValue methodsFor:'double dispatching'!
+
+remainderFromQDouble:aQDouble
+    "aQDouble does not know how to compute the remainder with the receiver -
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#rem: coercing:self
+
+    "Created: / 13-06-2017 / 08:54:47 / cg"
+! !
+
+!ArithmeticValue methodsFor:'double dispatching'!
+
+sumFromQDouble:aQDouble
+    "aQDouble does not know how to add the receiver -
+     retry the operation by coercing to higher generality"
+
+    ^ aQDouble retry:#+ coercing:self
+
+    "Created: / 13-06-2017 / 08:54:27 / cg"
+! !
+
 !CharacterArray methodsFor:'matching - phonetic'!
 
 asKoelnerPhoneticCode