--- 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 ;