anchor.diff:                            just_stay_alive -> ok
                         end
                 end),
  -    Ref = receive
  +    Res = receive
                 {Q,ref,R} ->
                     R
             after  5000 ->
                        error
             end,
  -    io:format("Ref is ~p~n",[Ref]),
  -    ok.
  +    io:format("Res is ~p~n",[Res]),
  +    Res.
   
   %% Test dist messages with valid structure (binary to term ok) but malformed control content
   bad_dist_structure(Config) when is_list(Config) ->
  
positive.code:                           just_stay_alive -> ok
                        end
                end),
      Ref = receive
                {Q,ref,R} ->
                    R
            after  5000 ->
                       error
            end,
      io:format("Ref is ~p~n",[Ref]),
      ok.
  start_link(Offender,P) ->
      Parent = self(),
      Q = spawn(Offender,
  
negative.code:                       [{hdr, 3, binary:part(Msg, 10,byte_size(Msg)-10)},
                         close]),
  
      ExitVictim = spawn(Victim, fun() ->
                                         receive
                                             {link, Proc} ->
                                                 link(Proc),
                                                 Parent ! {self(), linked}
                                         end,
                                         receive ok -> ok end
                                 end),
      OP1 = start_link(Offender,ExitVictim),
      ExitVictim ! {link, OP1},
      receive {ExitVictim, linked} -> ok end,
      send_bad_fragments(Offender, Victim, ExitVictim,{?DOP_PAYLOAD_EXIT,OP1,ExitVictim},0,
                        [{hdr, 1, [131]}]),
  
      Exit2Victim = spawn(Victim, fun() -> receive ok -> ok end end),
      {OP2, _} = start_monitor(Offender,Exit2Victim),
      send_bad_fragments(Offender, Victim, Exit2Victim,{?DOP_PAYLOAD_EXIT2,OP2,Exit2Victim},0,
                        [{hdr, 1, [132]}]),
  
      DownVictim = spawn(Victim, fun() ->
                                         receive
                                             {monitor, Proc} ->
                                                 DR = erlang:monitor(process, Proc),
                                                 Parent ! {self(), DR}
                                         end,
                                         Parent ! {self, DR},
                                         receive ok -> ok end
                                 end),
      {OP3, _} = start_monitor(Offender,DownVictim),
      DownVictim ! {monitor, OP3},
      DownRef = receive {DownVictim, DR} -> DR end,
      send_bad_fragments(Offender, Victim, DownVictim,{?DOP_PAYLOAD_MONITOR_P_EXIT,OP3,DownVictim,DownRef},0,
                        [{hdr, 1, [133]}]),
  
      P ! two,
  