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: %% @end
  -spec join(atom()) -> ok.
  join(_Name) ->
      random:seed(now()),
      ok.
  
  
  