anchor.diff:  	    Interval = Time*1000,
   	    BRef2 = {Started + Interval, Ref},
   	    Timer = {BRef2, {repeat, Interval, Pid}, MFA},
  -	    ets:insert(?INTERVAL_TAB,{BRef1,BRef2,Pid}),
  +	    ets:insert(?INTERVAL_TAB, {BRef1,BRef2,Pid}),
   	    ets:insert(?TIMER_TAB, Timer),
   	    Timeout = timer_timeout(SysTime),
   	    {reply, {ok, BRef1}, [], Timeout};
  
positive.code: handle_call(_Else, _From, Ts) ->		  % Catch anything else
      {noreply, Ts, next_timeout()}.
  
  handle_info(timeout, Ts) ->                       % Handle timeouts 
      Timeout = timer_timeout(system_time()),
      {noreply, Ts, Timeout};
  
negative.code: 		     [{'==','$1',Pid}],
  		     ['$_']}]),
      lists:foreach(fun({IntKey, TimerKey, _ }) ->
  			  ets:delete(?INTERVAL_TAB, IntKey),
  			  ets:delete(?TIMER_TAB, TimerKey)
  		  end, IntervalTimerList).
  
  %% Calculate time to the next timeout. Returned timeout must fit in a 
  %% small int.
  
  -spec next_timeout() -> timeout().
  next_timeout() ->
      case ets:first(?TIMER_TAB) of
  	'$end_of_table' -> 
  