anchor.diff:  
   delete(Token = #token{id = Id}) ->
       ets:delete(?TOKEN_TAB, Id),
  -    ets:delete_object(?CHAN_TOKEN_TAB, index_rec(Token)).
  +    ets:delete(?CHAN_TOKEN_TAB, index_rec(Token)).
   
   delete_by_id(Id) ->
       case lookup(Id) of
  
positive.code:     ok;
  reindex_tokens_itr({Recs, Cont}) ->
      ets:insert(?CHAN_TOKEN_TAB,
                 [#token_idx{channel_id = Chan, id = Id}
                  || {Chan, Id} <- Recs]),
      reindex_tokens_itr(ets:select(Cont)).
  
  
negative.code:     ets:new(?TOKEN_TAB, [named_table, public, set, {keypos, #token.id},
                           {read_concurrency, true},
                           {write_concurrency, true}]),
      ets:new(?CHAN_TOKEN_TAB, [named_table, public, ordered_set,
                                {keypos, #token_idx.key},
                                {read_concurrency, true},
                                {write_concurrency, true}]).
  
  