--- a/Float.st	Fri Aug 11 14:08:42 2017 +0200
+++ b/Float.st	Fri Aug 11 19:12:42 2017 +0200
@@ -523,6 +523,7 @@
     "Modified (comment): / 22-06-2017 / 13:44:12 / cg"
 ! !
 
+
 !Float class methodsFor:'binary storage'!
 
 readBinaryIEEEDoubleFrom:aStream
@@ -858,6 +859,7 @@
     "Modified (comment): / 20-06-2017 / 11:51:54 / cg"
 ! !
 
+
 !Float class methodsFor:'queries'!
 
 exponentCharacter
@@ -912,6 +914,7 @@
     ^ 2 "must be careful here, whenever ST/X is used on VAX or a 370"
 ! !
 
+
 !Float methodsFor:'arithmetic'!
 
 * aNumber
@@ -2512,6 +2515,7 @@
     "Modified: / 20-06-2017 / 11:37:13 / cg"
 ! !
 
+
 !Float methodsFor:'testing'!
 
 isFinite
@@ -2979,29 +2983,29 @@
     if ((val >= -1.0) && (val <= 1.0))
 # endif
     {
-	rslt = atanh(__floatVal(self));
-	if (! isnan(rslt))  /* Currently all our systems support isnan() */
+        rslt = atanh(val);
+        if (! isnan(rslt))  /* Currently all our systems support isnan() */
 # ifdef __osx__
-	if (! isinf(rslt))
+        if (! isinf(rslt))
 # endif
-	{
-	    if (__threadErrno == 0) {
-		__qMKFLOAT(newFloat, rslt);
-		RETURN ( newFloat );
-	    }
-	}
+        {
+            if (__threadErrno == 0) {
+                __qMKFLOAT(newFloat, rslt);
+                RETURN ( newFloat );
+            }
+        }
     }
 #endif
 %}.
     useFallBack notNil ifTrue:[
-	^ super arcTanh
+        ^ super arcTanh
     ].
     ^ self class
-	raise:#domainErrorSignal
-	receiver:self
-	selector:#arcTanh
-	arguments:#()
-	errorString:'bad receiver in arcTanh'
+        raise:#domainErrorSignal
+        receiver:self
+        selector:#arcTanh
+        arguments:#()
+        errorString:'bad receiver in arcTanh'
 !
 
 cos