--- gforth/environ.fs	1997/01/14 16:30:50	1.10
+++ gforth/environ.fs	1997/03/21 12:21:12	1.11
@@ -60,7 +60,8 @@ true constant CORE-EXT
     [ forthstart 4 cells + ] literal @ cell / ;
 
 : floating-stack ( -- n )
-    [ forthstart 5 cells + ] literal @ float / ;
+    [ forthstart 5 cells + ] literal @
+    [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
 
 \ !! max-float
 15 constant #locals \ 1000 64 /