anchor.diff:      Collected = get_first(Clients),
       collector(Fd,sort(Collected)).
   
  -collector(Fd,[{_,{Client,{Trace,State}}}|Rest]) ->
  +collector(Fd,[{_,{Client,{Trace,State}}} |Rest]) ->
       Trace1 = update_procinfo(Trace),
       State1 = handler1(Trace1,{Fd,State}),
       case get_next(Client,State1) of
  
positive.code:     stop_return(Result,Opts).
  
  stop_opts(Opts) ->
      case lists:member(format,Opts) of
  	true -> 
  	    format; % format implies fetch
  	false -> 
  	    case lists:member(fetch,Opts) of
  		true -> fetch;
  		false -> nofetch
  
negative.code:     ProcInfo = get_procinfo(Pid),
      setelement(2,Trace,ProcInfo).
  
  get_procinfo(Pid) when is_pid(Pid); is_port(Pid) ->
      case ets:lookup(?MODULE,Pid) of
  	[PI] -> PI;
  	[] -> Pid
  