anchor.diff:  
   
   select_workers_pids(Ets, Ident) ->
  -    ets:select(Ets, [{{'_', '$1', Ident, '$2'}, [{'==', worker, '$1'}], ['$2']}]).
  +    ets:select(Ets, ?SELECT(worker, Ident)).
   
   
   push_archives_to_new_worker(#state{ets=Ets}, WorkId, WorkerPid) ->
  
positive.code:     end.
  
  
  select_worker(Ets, Name) ->
      case catch ets:select(Ets, ?SELECT(worker, Name)) of
          [] -> {error, no_worker};
          [Pid|_] -> {ok, Pid};
          Error ->  
  
negative.code: -include_lib("caterpillar_event_internal.hrl").
  -define(
      SELECT(Type, ServiceOrIdent), 
      [{{'_', '$1', ServiceOrIdent, '$3'}, [{'==', '$1', Type}], ['$3']}]
  ).
  
  -export([start_link/1, stop/0, get_info/0]).
  