--- gforth/doc/makedoc.fs	2003/08/25 14:17:50	1.8
+++ gforth/doc/makedoc.fs	2004/12/31 13:24:02	1.10
@@ -1,6 +1,6 @@
 \ create a documentation file
 
-\ Copyright (C) 1995,1999,2000,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1999,2000,2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -67,7 +67,7 @@ s" \ automatically generated by makedoc.
     source >in ! drop ; immediate
 
 : put-doc-entry ( -- )
-    locals-list @ 0=	\ not in a colon def, i.e., not a local name
+    dpp @ normal-dp =   \ not defining locals
     latest 0<> and	\ not an anonymous (i.e. noname) header
     if
 	s" " >fileCR