anchor.diff:      ets:update_counter(Name, version, {2,1,16#FFFF,0}),
       %% Add Limit number of tokens to the bucket at the start of each interval.
       Limit = ets:lookup_element(Name, limit, 2),
  -    %% @todo Cap the token counter to Limit multiple a number of intevals to
  -    %% protect us from huge bursts after idle intervals. Use 5 intervals as
  -    %% a reasonable default for now.
  -    Cap = Limit * 5,
  -    ets:update_counter(Name, tokens, {2,Limit,Cap,Cap}).
  +    %% Cap the token counter to Limit multiple a number of intevals to protect
  +    %% us from huge bursts after idle intervals. The default is to only accumulate
  +    %% five intervals worth of tokens in the bucket.
  +    Burst = ets:lookup_element(Name, burst, 2),
  +    ets:update_counter(Name, tokens, {2,Limit,Burst,Burst}).
   
   
   %% @doc Add the current process as the member of a flow.
  
positive.code:                     take(N, Name, Limit, NewVersion)
              end
      end.
  
negative.code:     ets:insert(Name, [
          {version, 0},
          {limit, Limit},
          {burst, 5 * Limit},
          {fair, Limit},
          {tokens, Limit * 5},
          {timer, TRef}]),
      ok.
  
  