anchor.diff:  pack(Cnf) ->
     {Flags,RTPs} = foldl(fun chk_trc/2,{[],[]},ass_list(Cnf#cnf.trc)),
     dict:from_list([{time,chk_time(Cnf#cnf.time)},
  -                  {flags,[call,timestamp|Flags]},
  +                  {flags,[call,timestamp|maybe_arity(Cnf,Flags)]},
                     {rtps,RTPs},
                     {procs,chk_proc(Cnf#cnf.proc)},
                     {where,where(Cnf)}]).
  
positive.code:              , proc         = all          % list of procs (or 'all')
  	     , targ         = node()       % target node
  	     , buffered     = no           % output buffering
               , print_form   = "~s~n"       % format for printing
  	     , print_file   = ""           % file to print to (standard_io)
               , print_re     = ""           % regexp that must match to print
  
negative.code: chk_msgs(Msgs) when is_integer(Msgs) -> Msgs;
  chk_msgs(X) -> exit({bad_msgs,X}).
  
  chk_trc('send',{Flags,RTPs})                 -> {['send'|Flags],RTPs};
  chk_trc('receive',{Flags,RTPs})              -> {['receive'|Flags],RTPs};
  chk_trc('arity',{Flags,RTPs})                -> {['arity'|Flags],RTPs};
  chk_trc(RTP,{Flags,RTPs}) when is_tuple(RTP) -> {Flags,[chk_rtp(RTP)|RTPs]};
  chk_trc(X,_)                                 -> exit({bad_trc,X}).
  
  chk_rtp({M})                             -> chk_rtp({M,'_',[]});
  chk_rtp({M,F}) when is_atom(F)           -> chk_rtp({M,F,[]});
  