--- gforth/etags.fs	1994/08/31 16:37:45	1.1
+++ gforth/etags.fs	1995/09/06 21:00:14	1.2
@@ -77,7 +77,9 @@ create emit-file-char 0 c,
 	r@ put-load-file-name
 	source drop >in @ r@ write-file throw
 	127 r@ emit-file throw
+	bl r@ emit-file throw
 	last @ name>string r@ write-file throw
+	bl r@ emit-file throw
 	1 r@ emit-file throw
 	base @ decimal loadline @ 0 <# #s #> r@ write-file throw base !
 	s" ,0" r@ write-line throw
@@ -85,7 +87,7 @@ create emit-file-char 0 c,
 	\ instead of using 0, we could use file-position and subtract
 	\ the line length
 	rdrop
-    endif ;
+    endif cr ;
 
 : (tags-header) ( -- )
     defers header