--- gforth/cross.fs	1998/12/11 22:54:26	1.59
+++ gforth/cross.fs	1998/12/25 22:50:48	1.64
@@ -1164,6 +1164,11 @@ VARIABLE ;Resolve 1 cells allot
 	.sourcepos ." needs doer: " >in @ bl word count type >in ! cr
     THEN
     ghost tuck swap resolve <do:> swap >magic ! ;
+
+Variable prim#
+: first-primitive ( n -- )  prim# ! ;
+: Primitive  ( -- ) \ name
+    prim# @ T Alias H  -1 prim# +! ;
 >CROSS
 
 \ Conditionals and Comments                            11may93jaw
@@ -1954,10 +1959,14 @@ previous
 \ save-cross                                           17mar93py
 
 >CROSS
-Create magic  s" Gforth10" here over allot swap move
+Create magic  s" Gforth2x" here over allot swap move
 
-char 1 bigendian + tcell + magic 7 + c!
-char 0 tchar + magic 6 + c!
+bigendian 1+ \ strangely, in magic big=0, little=1
+tcell 1 = 0 and or
+tcell 2 = 2 and or
+tcell 4 = 4 and or
+tcell 8 = 6 and or
+magic 7 + c!
 
 : save-cross ( "image-name" "binary-name" -- )
   bl parse ." Saving to " 2dup type cr
@@ -2007,7 +2016,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 ;