--- gforth/cross.fs	1994/10/24 19:15:53	1.14
+++ gforth/cross.fs	1994/11/29 16:22:37	1.17
@@ -1,7 +1,7 @@
 \ CROSS.FS     The Cross-Compiler                      06oct92py
-\ $Id: cross.fs,v 1.14 1994/10/24 19:15:53 anton Exp $
+\ $Id: cross.fs,v 1.17 1994/11/29 16:22:37 pazsan Exp $
 \ Idea and implementation: Bernd Paysan (py)
-\ Copyright 1992 by the ANSI figForth Development Group
+\ Copyright 1992-94 by the GNU Forth Development Group
 
 \ Log:
 \       changed in ; [ to state off           12may93jaw
@@ -738,8 +738,10 @@ bigendian Constant bigendian
 : save-cross ( "name" -- )
   bl parse ." Saving to " 2dup type
   w/o bin create-file throw >r
-  image @ there r@ write-file throw
-  bit$  @ there 1- cell>bit rshift 1+ r@ write-file throw
+  s" gforth00"  r@ write-file throw \ write magic
+  image @ there r@ write-file throw \ write image
+  bit$  @ there 1- cell>bit rshift 1+
+                r@ write-file throw \ write tags
   r> close-file throw ;
 
 \ words that should be in minimal