anchor.diff:        {Ref, Info#concuerror_info{ref_queue = {NewActive, NewStored}}}
     end.
   
  +make_message(Info, Type, Data, Recipient) ->
  +  #concuerror_info{event = #event{label = Label} = Event} = Info,
  +  MessageEvent =
  +    #message_event{
  +       cause_label = Label,
  +       message = #message{data = Data},
  +       recipient = Recipient,
  +       type = Type},
  +  NewEvent = Event#event{special = [{message, MessageEvent}]},
  +  Info#concuerror_info{event = NewEvent}.
  +
   %%------------------------------------------------------------------------------
   
   add_location_info(Location, #concuerror_info{event = Event} = Info) ->
  
positive.code:   #concuerror_info{
       flags = #process_flags{trap_exit = TrapExit},
       links = Links,
       event = #event{event_info = EventInfo} = Event} = Info,
    case run_built_in(erlang, is_process_alive, 1, [Pid], Info) of
      {true, Info}->
        Self = self(),
  
negative.code: run_built_in(erlang, Send, 2, [Recipient, Message], Info)
    when Send =:= '!'; Send =:= 'send' ->
    run_built_in(erlang, send, 3, [Recipient, Message, []], Info);
  run_built_in(erlang, send, 3, [Recipient, Message, _Options], Info) ->
    #concuerror_info{event = #event{event_info = EventInfo}} = Info,
    Pid =
      case is_pid(Recipient) of
        true -> Recipient;
  