anchor.diff:        ClockMap = get_base_clock(OldTrace, []),
         StateClock = lookup_clock(state, ClockMap),
         ActorLast = lookup_clock_value(Actor, StateClock),
  -      ActorClock = orddict:store(Actor, ActorLast, lookup_clock(Actor, ClockMap)),
  +      ActorClock = clock_store(Actor, ActorLast, lookup_clock(Actor, ClockMap)),
         BaseClock =
           case ?is_channel(Actor) of
             true ->
  
positive.code: lookup_clock(P, ClockMap) ->
    case dict:find(P, ClockMap) of
      {ok, Clock} -> Clock;
      error -> orddict:new()
    end.
  
  lookup_clock_value(P, CV) ->
    case orddict:find(P, CV) of
      {ok, Value} -> Value;
      error -> 0
    end.
  
negative.code:         #event{actor = Actor, special = Special} = Event,
          ClockMap = get_base_clock(RevLate, RevEarly),
          OldClock = lookup_clock(Actor, ClockMap),
          ActorClock = clock_store(Actor, Index, OldClock),
          ?trace(_Logger, "HB: ~s~n", [?pretty_s(Index,Event)]),
          BaseHappenedBeforeClock =
            add_pre_message_clocks(Special, ClockMap, ActorClock),
  