anchor.diff:  handle_cast(_Msg, State) ->
       {noreply, State}.
   
  -handle_info({update, N, RT}, C) ->
  -    %{reply, CLT, C} = hlc:handle_call(timestamp, undefined, C),
  -    %case (RT#timestamp.wall_time + RT#timestamp.logical)
  -    %     - (CLT#timestamp.wall_time + CLT#timestamp.logical) of
  -    %    TNDiff when TNDiff > 1000 ->
  -    %        io:format("UPD ~p~n", [TNDiff]);
  -    %    TNDiff when TNDiff < -1000 ->
  -    %        io:format("UPD ~p~n", [TNDiff]);
  -    %    _ -> ok
  -    %end,
  -    {reply, _LT, C1} = hlc:handle_call({update, N, RT}, undefined, C),
  +handle_info({update, RT}, C) ->
  +    {reply, _LT, C1} = hlc:handle_call({update, RT}, undefined, C),
       {noreply, C1}.
   
   terminate(_Reason, _State) ->
  
positive.code: %% ------------------------------------------------------------------
  %% Internal Function Definitions
  %% ------------------------------------------------------------------
  
  physical_clock() ->
      {Mega,Sec,Micro} = erlang:now(),
      (Mega*1000000+Sec)*1000000+Micro.
  
negative.code: %% ------------------------------------------------------------------
  
  init([undefined]) ->
      case hlc:init([fun hlc:physical_clock/0]) of
          {ok, C} -> {ok, C};
          Error -> Error
      end;
  