--- a/ArithmeticValue.st	Thu Jun 15 10:07:35 2017 +0200
+++ b/ArithmeticValue.st	Thu Jun 15 13:56:41 2017 +0200
@@ -479,7 +479,9 @@
 coerce:aNumber
     "convert the argument aNumber into an instance of the receiver's class and return it."
 
-    ^ self subclassResponsibility
+    ^ self class coerce:aNumber
+
+    "Modified: / 15-06-2017 / 10:27:03 / cg"
 !
 
 generality