anchor.diff:      ok;
   terminate(Reason, Tab) ->
       _ = ets:foldl(fun
  -            ({TRef}, Acc) ->
  -                _ = cancel_timer(TRef),
  -                Acc;
  -            ({_TRef, TPid, Tag}, Acc) ->
  -                TPid ! {cancel, Tag},
  -                Acc
  -        end,
  -        undefined,
  -        Tab),
  +                      ({TRef}, Acc) ->
  +                          _ = cancel_timer(TRef),
  +                          Acc;
  +                      ({_TRef, TPid, Tag}, Acc) ->
  +                          TPid ! {cancel, Tag},
  +                          Acc
  +                  end,
  +                  undefined,
  +                  Tab),
       true = ets:delete(Tab),
       terminate(Reason, undefined).
   
  
positive.code:     Tag = make_ref(),
      TimeServerPid = self(),
      {TPid, TRef} = spawn_monitor(fun() ->
          TimeServerRef = monitor(process, TimeServerPid),
          TargetRef = monitor(process, TargetPid),
          TimerRef = schedule_interval_timer(Started, Time, MFA),
          _ = interval_loop(TimeServerRef, TargetRef, Tag, WaitComplete, TimerRef)
      end),
      {TRef, TPid, Tag}.
  
  %% Interval timer loop.
  
negative.code: handle_call({apply_once, {Started, Time, MFA}}, _From, Tab) ->
      Timeout = Started + Time,
      Reply = try
                  erlang:start_timer(Timeout, self(), {apply_once, MFA},
  				   [{abs, true}])
              of
                  SRef ->
                      ets:insert(Tab, {SRef}),
  