--- gforth/float.fs	1997/05/21 20:39:25	1.21
+++ gforth/float.fs	1997/07/06 16:00:11	1.22
@@ -60,7 +60,7 @@ dofield: lastxt code-address! \ change t
 DOES> ( -- r )
     f@ ;
 
-: fdepth  ( -- n )  f0 @ fp@ - [ 1 floats ] Literal / ;
+: fdepth  ( -- n )  fp0 @ fp@ - [ 1 floats ] Literal / ;
 
 : FLit ( -- r )  r> dup f@ float+ >r ;
 : FLiteral ( r -- )