--- a/OctaFloat.st	Mon Nov 25 15:23:34 2019 +0100
+++ b/OctaFloat.st	Mon Nov 25 15:25:45 2019 +0100
@@ -1029,6 +1029,14 @@
     "
 !
 
+asOctaFloat
+    ^ self
+
+    "
+     1.0 asOctaFloat asOctaFloat
+    "
+!
+
 generality
     "return the generality value - see ArithmeticValue>>retry:coercing:"