--- a/Number.st	Tue Oct 10 16:03:50 2017 +0200
+++ b/Number.st	Tue Oct 10 16:04:15 2017 +0200
@@ -1805,10 +1805,6 @@
     ^ self
 ! !
 
-
-
-
-
 !Number methodsFor:'printing & storing'!
 
 displayOn:aGCOrStream
@@ -2386,12 +2382,21 @@
         num := num * self.
 
         delta := num / den.
+"/ delta mantissa == 0 ifTrue:[self halt. num / den].
+"/ Transcript showCR:delta.
+        delta isNaN ifTrue:[self halt:'nan when dividing for delta'. num / den].
+        delta = 0 ifTrue:[self halt:'zero delta'].
         approx := approx + delta.
     ] doUntil:[delta abs <= epsilon].
 
     ^ approx
 
     "
+     wolfram:
+                7.389056098930650227230427460575007813180315570551847324087
+
+     (2 asLargeFloat exp_withAccuracy:1e-100) printfPrintString:'%50.48f'                      
+
      1.0 exp                                    2.71828
      1q exp                                     2.71828183
      2q exp                                     7.3890561
@@ -2424,7 +2429,7 @@
      (1 exp_withAccuracy:1e-100) asFixedPoint:100
     "
 
-    "Modified: / 04-07-2017 / 08:47:07 / cg"
+    "Modified: / 10-10-2017 / 16:04:08 / cg"
 !
 
 ln_withAccuracy:epsilon