anchor.diff:  %% pid    : The sender's LID.
   %% misc   : Optional arguments, depending on the message type.
   -record(sched, {msg  :: atom(),
  -                lid  :: lid:lid(),
  +                lid  :: pid(),
                   misc  = empty :: term()}).
   
   %% Special internal message format (fields same as above).
  
positive.code: -spec block() -> 'ok'.
  
  block() ->
      %% TODO: Depending on how 'receive' is instrumented, a check for
      %% whether the caller is a known process might be needed here.
      Lid = rpc:block_call('ced@alkis-desktop', lid, from_pid, [self()]),
      ?RP_SCHED_SEND ! #sched{msg = block, lid = Lid},
      ok.
  
  %% Prompt process Pid to continue running.
  continue(Lid) ->
      Pid = lid:get_pid(Lid),
      Pid ! #sched{msg = continue}.
  
negative.code: %% handlers.
  dispatcher(Context) ->
      receive
  	#sched{msg = Type, lid = Pid, misc = Misc} ->
  	    case lid:from_pid(Pid) of
  		not_found -> continue(Pid), dispatcher(Context);
  		Lid -> handler(Type, Lid, Context, Misc)
  	    end;
  	%% Ignore unknown processes.
  	{'EXIT', Pid, Reason} ->
  	    case lid:from_pid(Pid) of
  