--- gforth/cross.fs	1998/12/11 22:54:26	1.59
+++ gforth/cross.fs	1998/12/22 13:41:18	1.61
@@ -1957,7 +1957,6 @@ previous
 Create magic  s" Gforth10" here over allot swap move
 
 char 1 bigendian + tcell + magic 7 + c!
-char 0 tchar + magic 6 + c!
 
 : save-cross ( "image-name" "binary-name" -- )
   bl parse ." Saving to " 2dup type cr
@@ -2007,7 +2006,8 @@ bigendian Constant bigendian
 : tempdp> tempdp> ;
 : const constflag on ;
 : warnings name 3 = 0= twarnings ! drop ;
-: | NoHeaderFlag on ;
+: | ;
+\ : | NoHeaderFlag on ; \ This is broken (damages the last word)
 
 : save-cross save-cross ;
 : save-region save-region ;