--- a/Float.st	Tue May 28 09:12:15 2019 +0200
+++ b/Float.st	Tue May 28 09:12:28 2019 +0200
@@ -915,10 +915,16 @@
 numBitsInExponent
     "answer the number of bits in the exponent
      This is an IEEE float, where 11 bits are available:
-	seeeeeee eeeemmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm
+        seeeeeee eeeemmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm
     "
 
     ^ 11
+
+    "
+     1.0 numBitsInExponent
+    "
+
+    "Modified (format): / 28-05-2019 / 08:55:51 / Claus Gittinger"
 !
 
 numBitsInMantissa