--- gforth/float.fs	2000/09/23 15:46:56	1.34
+++ gforth/float.fs	2002/01/17 12:02:55	1.36
@@ -102,7 +102,7 @@ DOES> ( -- r )
 : f.  ( r -- ) \ float-ext f-dot
 \G Display (the floating-point number) @i{r} without exponent,
 \G followed by a space.
-  f$ dup >r 0<
+  f$ dup >r 0<=
   IF    '0 emit
   ELSE  scratch r@ min type  r@ precision - zeros  THEN
   '. emit r@ negate zeros
@@ -180,6 +180,9 @@ IS interpreter-notfound
     \G Divide 1.0e0 by @i{r1}.
     1.0e0 fswap f/ ;
 
+get-current environment-wordlist set-current
+1.7976931348623157e308 FConstant max-float
+set-current
 
 \ We now have primitives for these, so we need not define them