anchor.diff:      ok;
   do_put_bucket(true, {Bucket, Microsecs}=Args) ->
       BucketAtom = binary_to_atom(Bucket, latin1),
  -    case (catch folsom_metrics:notify_existing_metric(join(riak_kv_node_puts_total, BucketAtom), {inc, 1}, counter)) of
  +    case (catch folsom_metrics:notify_existing_metric({?APP, join(node_puts_total, BucketAtom)}, {inc, 1}, counter)) of
           ok ->
  -            folsom_metrics:notify_existing_metric(join(riak_kv_node_put_fsm_time, BucketAtom), Microsecs, histogram);
  +            folsom_metrics:notify_existing_metric({?APP, join(node_put_fsm_time, BucketAtom)}, Microsecs, histogram);
           {'EXIT', _} ->
  -            register_stat({join(riak_kv_node_puts_total, BucketAtom), counter}),
  -            register_stat({join(riak_kv_node_put_fsm_time, BucketAtom), histogram}),
  +            register_stat({?APP, join(node_puts_total, BucketAtom)}, counter),
  +            register_stat({?APP, join(node_put_fsm_time, BucketAtom)}, histogram),
               do_put_bucket(true, Args)
       end.
   
  
positive.code: %% API
  -export([get_stats/0, update/1, register_stats/0]).
  
  -define(APP_NAME, "riak_kv_").
  
  %% @spec get_stats() -> proplist()
  %% @doc Get the current aggregation of stats.
  
negative.code:     ok;
  do_get_bucket(true, {Bucket, Microsecs, NumSiblings, ObjSize}=Args) ->
      BucketAtom = binary_to_atom(Bucket, latin1),
      case (catch folsom_metrics:notify_existing_metric({?APP, join(node_gets_total, BucketAtom)}, {inc, 1}, counter)) of
          ok ->
              [folsom_metrics:notify_existing_metric({?APP, join(Stat, BucketAtom)}, Arg, histogram)
               || {Stat, Arg} <- [{node_get_fsm_time, Microsecs},
                                  {node_get_fsm_siblings, NumSiblings},
                                  {node_get_fsm_objsize, ObjSize}], Arg /= undefined];
          {'EXIT', _} ->
              folsom_metrics:new_counter({?APP, join(node_gets_total, BucketAtom)}),
              [register_stat({?APP, join(Stat, BucketAtom)}, histogram) || Stat <- [node_get_fsm_time,
                                                                                    node_get_fsm_siblings,
                                                                                    node_get_fsm_objsize]],
              do_get_bucket(true, Args)
      end.
  
  