anchor.diff:  \g Examine code for xt
   : (xtsee) ( xt -- )
      dup doersee 
  -   dup xt>name .name
  -   dup primxt? if dup else dup ?dodefine nip then xt>name .name
  +   dup safext>name .name
      dup /xt 
      over primxt? if codesee exit then 
      swap ?dodefine drop 
      begin  2dup >  while  cellsee  repeat 2drop ;
   
   : xtsee ( xt -- )
  -   dup (xtsee) xt>name dup 
  -   fimmed 0 > if ." immediate "  then   
  -   /fcompo unless ." compile-only" then
  -   cr ;
  +   dup (xtsee) xt>name ?dup if 
  +      dup 
  +      fimmed 0 > if ." immediate "  then   
  +      /fcompo unless ." compile-only" then
  +   then cr ;
   
   \g @see anstools
   : see  ( "<spaces>name" -- )
      ' xtsee ;
   
  -export see xtsee dump
  +export see xtsee dump xt?
   end-module
  
positive.code:    dup primxt? if ." primitive " then
     drop ;
  
  \g returns true if the val could be a PC address
  : pc? ( val -- flag )
     dup aligned over = swap dict? and ;
  
  \g returs true if val could be an xt
  : xt? ( val -- flag )
     dup pc? if ?dodefine nip 0<> else primxt? then ;
  
  : safext>name ( xt -- name|0 )
     dup xt? if xt>name else 0 (d.) pad place pad then ;
  
  : cellsee ( a-addr1 -- a-addr2 )
     dup @ safext>name .name 
     cell+ ;
  
  defer codesee  
  :noname ( xt /xt -- )  over - dump ; is codesee
  
negative.code: : dump  ( addr u -- )
     16 based (dump) ;
  
  \g returns true if the val could be a PC address
  : pc? ( val -- flag )
     dup aligned over = swap dict? and ;
  
  \g returs true if val could be an xt
  : xt? ( val -- flag )
     dup pc? if ?dodefine nip 0<> else primxt? then ;
  
  : primheader? ( val -- flag )
     dup pc? if 
        dup @ 3735928559 = if
           cell+ @ primxt? exit
        then
     then drop false ;
  
  : nextxt ( xt1 -- xt2 true | here false )
     begin 
        cell+
        dup here = if false exit then 
        dup primheader? if cell+ @ true exit then
        dup xt? if true exit then 
     again ;
  
  : /xt ( xt -- a-addr )
     dup primxt? if  
  