--- a/Number.st	Mon Jul 29 10:36:24 2019 +0200
+++ b/Number.st	Tue Jul 30 11:48:47 2019 +0200
@@ -1388,6 +1388,8 @@
     self isInfinite == aNumber isInfinite ifFalse: [^ false].
 
     fuzz := (self abs max:aNumber abs) * eps.
+    fuzz isFinite ifFalse:[^ false].
+
     ^ (self - aNumber) abs <= fuzz
 
     "
@@ -1407,6 +1409,8 @@
      1 closeTo: 1.0001
      1 closeTo: 1.001
      1 closeTo: 0.999
+
+     170 closeTo:(170 raisedTo:240)
     "
 
     "Modified (comment): / 31-08-2018 / 12:24:39 / Claus Gittinger"