anchor.diff:      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),
  +                                     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.
  
positive.code:     ok;
  terminate(Reason, Tab) ->
      _ = ets:foldl(fun
              ({TRef}, Acc) ->
                  _ = cancel_timer(TRef),
                  Acc;
              ({_TRef, TPid, Tag}, Acc) ->
                  TPid ! {cancel, Tag},
                  Acc
          end,
          undefined,
          Tab),
      true = ets:delete(Tab),
      terminate(Reason, undefined).
  
  
negative.code: %% One-shot timer timeout.
  handle_info({timeout, TRef, {apply_once, MFA}}, Tab) ->
      _ = case ets:take(Tab, TRef) of
              [{TRef}] ->
                  do_apply(MFA, false);
              [] ->
                  ok
          end,
      {noreply, Tab};
  %% An interval timer loop process died.
  handle_info({'DOWN', TRef, process, _Pid, _Reason}, Tab) ->
  