--- gforth/cross.fs	1998/12/25 22:50:48	1.64
+++ gforth/cross.fs	1999/01/10 22:00:22	1.65
@@ -1966,6 +1966,10 @@ tcell 1 = 0 and or
 tcell 2 = 2 and or
 tcell 4 = 4 and or
 tcell 8 = 6 and or
+tchar 1 = $00 and or
+tchar 2 = $28 and or
+tchar 4 = $50 and or
+tchar 8 = $78 and or
 magic 7 + c!
 
 : save-cross ( "image-name" "binary-name" -- )