anchor.diff:                   undefined ->
                        lists:duplicate(length([?STAT_COUNTERS]), undefined);
                    _ ->
  -                     lists:zipwith(fun (A, B) ->
  -                                           Res = A - B,
  -                                           if Res < 0 -> 0;
  -                                              true -> Res
  -                                           end
  -                                   end, Counters, LastCounters)
  +                     Delta = TS - LastTS,
  +                     if Delta > 0 ->
  +                             lists:zipwith(
  +                               fun (A, B) ->
  +                                       Res = (A - B) * 1000 div Delta,
  +                                       if Res < 0 -> 0;
  +                                          true -> Res
  +                                       end
  +                               end, Counters, LastCounters);
  +                        true ->
  +                             lists:duplicate(length([?STAT_COUNTERS]),
  +                                             undefined)
  +                     end
                end,
       {list_to_tuple([stat_entry, TS] ++ Gauges ++ Deltas), Counters}.
   
  
positive.code: handle_cast(unhandled, unhandled) ->
      unhandled.
  
  handle_info({tick, TS}, #state{bucket=Bucket, counters=Counters} = State) ->
      case catch ns_memcached:stats(Bucket) of
          {ok, Stats} ->
              TS1 = latest_tick(TS),
              {Entry, NewCounters} = parse_stats(TS1, Stats, Counters),
              case Counters of % Don't send event with undefined values
                  undefined ->
                      ok;
  
negative.code: translate_stat(Stat) ->
      Stat.
  
  parse_stats(TS, Stats, LastCounters, LastTS) ->
      GetStat = fun (K, Dict) ->
                        case dict:find(K, Dict) of
                            {ok, V} -> list_to_integer(binary_to_list(V));
  