--- a/LongFloat.st	Tue Jun 20 12:22:18 2017 +0200
+++ b/LongFloat.st	Tue Jun 20 12:22:31 2017 +0200
@@ -1891,12 +1891,12 @@
 !LongFloat methodsFor:'special access'!
 
 exponent
-    "extract a normalized floats exponent.
+    "extract a normalized float's exponent.
      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 */
 
@@ -1916,7 +1916,10 @@
      0.5q exponent
      0.25q exponent
      0.00000011111q exponent
+     1.0q1000 exponent
     "
+
+    "Modified (comment): / 20-06-2017 / 11:20:40 / cg"
 !
 
 mantissa
@@ -1938,6 +1941,7 @@
     RETURN (v);
 #endif
 %}.
+    ^ super mantissa
 
     "
      1.0q exponent
@@ -1952,6 +1956,8 @@
      0.00000011111q exponent
      0.00000011111q mantissa
     "
+
+    "Modified: / 20-06-2017 / 11:33:24 / cg"
 ! !
 
 !LongFloat methodsFor:'testing'!