--- gforth/float.fs	2011/10/07 17:10:15	1.61
+++ gforth/float.fs	2011/11/14 22:33:22	1.62
@@ -88,7 +88,7 @@ DOES> ( -- r )
     \G @code{F.} @code{FE.} and @code{FS.} to @i{u}.
     to precision ;
 
-: scratch ( r -- addr len )
+: scratch ( -- addr len )
   pad precision - precision ;
 
 : zeros ( n -- )   0 max 0 ?DO  '0 emit  LOOP ;