--- gforth/float.fs	2001/08/07 09:39:30	1.35
+++ gforth/float.fs	2002/01/17 12:02:55	1.36
@@ -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