--- gforth/float.fs	1996/09/10 16:08:37	1.20
+++ gforth/float.fs	1998/12/08 22:02:42	1.23
@@ -1,6 +1,6 @@
 \ High level floating point                            14jan94py
 
-\ Copyright (C) 1995 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1997 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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 -- )
@@ -98,7 +98,7 @@ DOES> ( -- r )
   scratch over c@ emit '. emit 1 /string type
   'E emit . ;
 
-require debugging.fs
+require debugs.fs
 
 : sfnumber ( c-addr u -- r true | false )
     2dup [CHAR] e scan ( c-addr u c-addr2 u2 )