--- gforth/kernel/comp.fs	2006/02/19 17:27:13	1.77
+++ gforth/kernel/comp.fs	2006/02/25 18:28:12	1.78
@@ -117,7 +117,11 @@ defer header ( -- ) \ gforth
     align here last !
     current @ 1 or A,	\ link field; before revealing, it contains the
 			\ tagged reveal-into wordlist
-    longstring, cfalign
+[ has? f83headerstring [IF] ]
+	string,
+[ [ELSE] ]
+	longstring, cfalign
+[ [THEN] ]
     alias-mask lastflags cset ;
 
 : input-stream-header ( "name" -- )