anchor.diff:      true = length(Matches) == 1,
   
       file:delete(Dump),
  +
  +    unlink(PidB),
  +
  +    rpc:call(NodeB, erlang, halt, [0]),
   
       ok.
   
  
positive.code:                                            timer:sleep(5),
                                             receive
                                                 M ->
                                                     io:format("~p",[M]),
                                                     erlang:halt("dump")
                                             end
                                     end),
                               exit(lists:duplicate(1000000,100))
                       end
               end),
  
      spawn_link(NodeB,
                 fun() ->
                         [erlang:monitor(process, PidA) || _ <- lists:seq(1,10000)],
                         Self ! done,
                         receive _ -> ok end
                 end),
  
      receive done -> ok end,
      true = rpc:call(NodeA, os, putenv, ["ERL_CRASH_DUMP",Dump]),
      ct:pal("~p",[rpc:call(NodeA, distribution_SUITE, make_busy, [NodeB, 1000])]),
  
      receive ready -> unlink(PidA), PidA ! ok end,
  
  
negative.code:     {ok, NodeA} = start_node(Config),
      {ok, NodeB} = start_node(Config),
  
      Self = self(),
  
      PidA = spawn_link(
               NodeA,
               fun() ->
                       Self ! ready,
                       Reason = lists:duplicate(1000000,100),
                       receive
                           ok ->
                               spawn(fun() ->
  