--- a/ArithmeticValue.st	Sun Jun 18 18:02:21 2017 +0200
+++ b/ArithmeticValue.st	Mon Jun 19 00:16:29 2017 +0200
@@ -397,11 +397,16 @@
      It is only defined if the argument's type is the same as the receiver's."
 
     aNumber isZero ifTrue:[
+        "/ protect against NaN and negativeInfinity trying to use me...
+        thisContext isRecursive ifTrue:[ self subclassResponsibility].
+        
         self isZero ifTrue:[^ self class NaN].
         self negative ifTrue:[^ self class negativeInfinity].
         ^ self class infinity.
     ].
     ^ self / aNumber
+
+    "Modified (format): / 18-06-2017 / 23:43:13 / cg"
 ! !
 
 !ArithmeticValue methodsFor:'arithmetic destructive'!