--- gforth/cross.fs	1999/05/20 13:28:20	1.79
+++ gforth/cross.fs	1999/08/29 21:44:45	1.81
@@ -864,7 +864,7 @@ float             	Constant tfloat
 bits/byte		Constant tbits/byte
 [THEN]
 H
-tbits/byte bits/byte /	Constant tbyte
+tbits/char bits/byte /	Constant tbyte
 
 
 \ Variables                                            06oct92py
@@ -2406,9 +2406,9 @@ magic 7 + c!
   bl parse ." Saving to " 2dup type cr
   w/o bin create-file throw >r
   TNIL IF
-      s" #! "   r@ write-file throw
-      bl parse  r@ write-file throw
-      s"  -i"   r@ write-file throw
+      s" #! "           r@ write-file throw
+      bl parse          r@ write-file throw
+      s"  --image-file" r@ write-file throw
       #lf       r@ emit-file throw
       r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index )
       ?do