anchor.diff:      ok.
   
   incr(Name, Value, Pid) when is_integer(Value), is_pid(Pid) ->
  -    gen_server:call(?MODULE, {incr, Name, Value, Pid}).
  +    gen_server:call(?SERVER, {incr, Name, Value, Pid}).
   
   
   %% @doc Gets a counter's current value.
  
positive.code:          Name :: term(), Value :: integer(),  Pid :: pid().
  
  async(Ops) when is_list(Ops) ->
      gen_server:cast(?MODULE, {multi, expand_multi(Ops)}).
  
  
  %% @private
  pending_msgs() ->
      {_, Len} = erlang:process_info(whereis(?MODULE), message_queue_len),
      Len.
  
  
  
negative.code:     [] | term().
  
  lookup(Name) ->
      case ets:lookup(?TABLE, Name) of
          [] -> [];
          [{_, Val}] -> Val
      end.
  