Fix build problem

doc/makedoc.fs

@@ -110,8 +110,4 @@ normal-dp value check-dp
 	r> >in !
     endif ;
 
-: (doc-header) ( -- )
-    defers header
-    put-doc-entry ;
-
-' (doc-header) IS header
+' put-doc-entry IS header-extra

etags.fs

@@ -119,8 +119,4 @@ create tags-line 128 chars allot
 	latest name>string put-tags-string
     then ;
 
-: (tags-header) ( -- )
-    defers header
-    put-tags-entry ;
-
-' (tags-header) IS header
+' put-tags-entry IS header-extra

kernel/comp.fs

@@ -178,16 +178,17 @@ defer record-name ( -- )
 ' noop is record-name
 \ record next name in tags file
 defer header-name,
-defer header ( -- ) \ gforth
-: default-header vt, header-name, vttemplate namevt, ?noname-vt ;
-' default-header is header
+defer header-extra ' noop is header-extra
+: header ( -- ) \ gforth
+    \G create a header for a word
+    vt, header-name, vttemplate namevt, ?noname-vt header-extra ;
 
 : create-from ( xt -- ) \ gforth
     \G create a word using the example @i{xt}'s vt.
     \G @i{xt} must have a name.  The resulting header
     \G is not yet revealed.
     vt, header-name,   >namevt 2@ , cfa,
-    last @ 0= IF  noname-vt  THEN ;
+    last @ 0= IF  noname-vt  THEN  header-extra ;
 : noname-from ( xt -- ) \ gforth
     \G create a headerless using the example @i{xt}'s vt.
     \G @i{xt} must be headerless.

tags.fs

@@ -114,8 +114,4 @@ create tags-line 128 chars allot
 	latest name>string put-tags-string
     then ;
 
-: (tags-header) ( -- )
-    defers header
-    put-tags-entry ;
-
-' (tags-header) IS header
+' put-tags-entry IS header-extra