--- 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:"