--- a/ShortFloat.st	Sat May 25 23:48:34 2019 +0200
+++ b/ShortFloat.st	Sun May 26 03:13:30 2019 +0200
@@ -1885,12 +1885,12 @@
 !
 
 mantissa
-    "extract a normalized floats mantissa.
+    "extract a normalized float's mantissa.
      The returned value depends on the float-representation of
      the underlying machine and is therefore highly unportable.
      This is not for general use.
      This assumes that the mantissa is normalized to
-     0.5 .. 1.0 and the floats value is mantissa * 2^exp"
+     0.5 .. 1.0 and the float's value is mantissa * 2^exp"
 
 %{  /* NOCONTEXT */
     float myVal;
@@ -1904,11 +1904,11 @@
 #endif
     {
 #if defined(__i386__) && defined(__GNUC__)
-	float frac = frexpf(myVal, &exp);
-	RETURN (__MKSFLOAT(frac));
+        float frac = frexpf(myVal, &exp);
+        RETURN (__MKSFLOAT(frac));
 #else
-	double frac = frexp( (double)(myVal), &exp);
-	RETURN (__MKFLOAT(frac));
+        double frac = frexp( (double)(myVal), &exp);
+        RETURN (__MKFLOAT(frac));
 #endif
     }
 %}.
@@ -1930,6 +1930,7 @@
     "
 
     "Modified: / 20-06-2017 / 11:41:11 / cg"
+    "Modified: / 26-05-2019 / 03:13:14 / Claus Gittinger"
 ! !
 
 !ShortFloat methodsFor:'testing'!