anchor.diff:        [?process_pat_pid_status(Pid, Status)] ->
           IsActive = is_active(Status),
           case IsActive of
  -          true -> true = ets:insert(Monitors, {Pid, {Ref, self()}});
  +          true -> true = ets:insert(Monitors, {Pid, {Ref, self()}, active});
             false -> ok
           end,
           case EventInfo of
  
positive.code:     true ->
        {Pid, Ref} = Result,
        #concuerror_info{monitors = Monitors} = Info,
        true = ets:insert(Monitors, {Pid, {Ref, Parent}});
      false ->
        Pid = Result
    end,
    case lists:member(link, SpawnOpts) of
      true ->
        #concuerror_info{links = Links} = Info,
        true = ets:insert(Links, [{Parent, Pid}, {Pid, Parent}]);
      false -> ok
    end,
    Pid ! {start, Module, Name, Args},
  
negative.code:     Event#event{
        event_info =
          #exit_event{
             links = [L || {L, _} <- Links],
             monitors = [M || {M, _} <- Monitors],
             name = Name,
             reason = Reason,
             stacktrace = Stacktrace
  