Re: History of CREATE...DOES> ?

Really? With
SET-PRECISION / PRECISION ...
Return the number of significant digits currently used
by F.
and with
F. ...
Display, with a trailing space, the top number on the
floating-point stack using fixed-point notation:
  [-] ⟨digits⟩.⟨digits0⟩
i.e. digits+digits0 = number of significant digits
and with
  ⟨sign⟩ := { + | - }
  ⟨digits⟩ := ⟨digit⟩⟨digits0⟩
  ⟨digits0⟩ := ⟨digit⟩*
  ⟨digit⟩ := { 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 }
F. should be standardized clearly enough.
F.ex.
Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
5 set-precision  ok
1.1e-2 f. 0.011  ok  <- expected 5 digits i.e. 0.0110
1.1e-40 f. 0.00000000000000000000000000000000000000011  ok
is just an implementation-defined peculiarity.