--- a/Float.st	Thu May 21 13:41:25 1998 +0200
+++ b/Float.st	Thu May 21 13:48:33 1998 +0200
@@ -681,6 +681,9 @@
 
 exponent
     "extract a normalized floats 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"
 
@@ -1773,6 +1776,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.82 1998-05-21 11:38:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.83 1998-05-21 11:48:33 cg Exp $'
 ! !
 Float initialize!