--- gforth/cross.fs	2010/05/12 20:13:33	1.173
+++ gforth/cross.fs	2010/05/13 09:39:07	1.174
@@ -3316,7 +3316,7 @@ Cond: postpone ( -- ) \ name
 hex
 
 >CROSS
-Create magic  s" Gforth3x" here over allot swap move
+Create magic  s" Gforth4x" here over allot swap move
 
 bigendian 1+ \ strangely, in magic big=0, little=1
 tcell 1 = 0 and or