anchor.diff:      {reply, NewTS, Clock#clock{ts=NewTS}};
   
   handle_call({update, RT}, _From, #clock{physical_clock=PhysicalCLock,
  -                                        ts=TS, maxdrift=MaxDrift}=Clock)  ->
  +                                        ts=TS, maxoffset=MaxOffset}=Clock)  ->
       Now = PhysicalCLock(),
   
       #timestamp{wall_time=RTWalltime, logical=RTLogical} = RT,
  
positive.code: init([Fun]) ->
      {ok, #clock{physical_clock=Fun,
                  ts = #timestamp{},
                  maxdrift = 0}}.
  
  %% @private
  handle_call({set_maxdrift, MaxDrift}, _From, Clock) ->
      {reply, ok, Clock#clock{maxdrift=MaxDrift}};
  
  handle_call(get_maxdrift, _From, #clock{maxdrift=MaxDrift}=Clock) ->
      {reply, MaxDrift, Clock};
  
  handle_call(timestamp, _From, #clock{ts=TS}=Clock) ->
      {reply, TS, Clock};
  
negative.code:             {reply, NewTS, Clock#clock{ts=NewTS}};
  
          false when RTWalltime > TSWalltime ->
              if ((MaxOffset > 0) and (Drift > MaxOffset)) ->
                      error_logger:info_msg("Remote wall time offsets from
                                  localphysical clock: %p (%p ahead)",
                                  [RTWalltime, Drift]),
  
  