anchor.diff:    ?badarg_if_not(is_pid(Pid) andalso Pid =/= Self andalso Alive),
     NewInfo =
       case EventInfo of
  -      %% Replaying. Keep original Message reference.
  +      %% Replaying. Keep original message
         #builtin_event{} -> Info;
         %% New event...
         undefined ->
  -        MessageEvent =
  -          #message_event{
  -             cause_label = Event#event.label,
  -             message = #message{data = {'ETS-TRANSFER', Tid, Self, GiftData}},
  -             recipient = Pid},
  -        NewEvent = Event#event{special = [{message, MessageEvent}]},
  -        Info#concuerror_info{event = NewEvent}
  +        Data = {'ETS-TRANSFER', Tid, Self, GiftData},
  +        make_message(Info, message, Data, Pid)
       end,
     Update = [{?ets_owner, Pid}],
     true = ets:update_element(EtsTables, Tid, Update),
  
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:               #builtin_event{} -> Info;
                %% New event...
                undefined ->
                  make_message(Info, message, {'EXIT', Pid, noproc}, self())
              end,
            {true, NewInfo}
        end
  