anchor.diff:  	true -> replay_logger:log({block, Lid});
   	false -> continue
       end,
  -    Info#info{blocked = NewBlocked};
  +    Context#context{blocked = NewBlocked};
   
   %% Exit message handler.
   %% Discard the exited process (don't add to any set).
   %% If the exited process is irrelevant (i.e. has no LID assigned),
   %% call the dispatcher.
  -handler(exit, Pid, #info{details = Det} = Info, Reason) ->
  +handler(exit, Pid, #context{details = Det} = Context, Reason) ->
       NewReason = shorten_reason(Reason),
       Lid = lid:from_pid(Pid),
       case Lid of
   	not_found ->
   	    ?debug_2("Process ~s (pid = ~p) exits (~p).~n",
                        [Lid, Pid, NewReason]),
  -	    dispatcher(Info);
  +	    dispatcher(Context);
   	_Any ->
   	    ?debug_1("Process ~s exits (~p).~n", [Lid, NewReason]),
   	    case Det of
  
positive.code:     Pid ! #sched{msg = continue},
      %% Call the dispatcher to handle incoming actions from the process
      %% we just "unblocked".
      dispatcher(Info#info{active = NewActive, state = NewState}).
  
  %% Shorten a process' exit reason.
  shorten_reason(normal) -> normal;
  
negative.code: %% After activating said process the dispatcher is called to delegate the
  %% messages received from the running process to the appropriate handler
  %% functions.
  driver(#context{active = Active, blocked = Blocked, error = Error,
                  state = State} = Context, ReplayState) ->
      case Error of
  	{assert, _Descr} -> {error, Error, State};
          {exception, _Descr} -> {error, Error, State};
  