Make sure the noname in cross.fs is really set up as noname

    docol, ]comp colon-start depth ;Resolve off T ] H r> ;

: :noname ( -- xt colon-sys )

    switchrom vt, vt-noname

    switchrom vt,

    [ X has? f83headerstring 0= ] [IF]

	T 0 cell+ cfalign# here cell+ H

	[IFDEF] alias-mask t>flag >r alias-mask T r@ c@ xor r> c! H

    there 

    \ define a nameless ghost

    here ghostheader dup last-header-ghost ! dup to lastghost

    (:) ;  

    (:) vt-noname ;

Cond: EXIT ( -- )   compile ;S  ;Cond