--- gforth/cross.fs 2011/12/31 15:29:25 1.179 +++ gforth/cross.fs 2012/02/13 22:58:13 1.180 @@ -3068,7 +3068,7 @@ compile: does-resolved ;compile \ : ?struc ( flag -- ) ABORT" CROSS: unstructured " ; \ : sys? ( sys -- sys ) dup 0= ?struc ; -: >mark ( -- sys ) T here ( dup ." M" hex. ) 0 , H ; +: >mark ( -- sys ) T here 0 , H ; X has? abranch [IF] : branchoffset ( src dest -- ) drop ;