--- gforth/environ.fs	1997/01/14 16:30:50	1.10
+++ gforth/environ.fs	1997/06/06 17:27:54	1.12
@@ -51,7 +51,9 @@ true constant CORE-EXT
 -1 MAX-N 2constant MAX-D
 -1. 2constant MAX-UD
 
-0 1 2constant gforth \ minor major version
+version-string 2constant gforth \ version string (for versions>0.3.0)
+\ the version strings of the various versions are guaranteed to be
+\ sorted lexicographically
 
 : return-stack-cells ( -- n )
     [ forthstart 6 cells + ] literal @ cell / ;
@@ -60,7 +62,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 /