anchor.diff:      Addr = {127,0,0,1},
       Stream = 1,
       Timeout = 3333,
  +    StartTime = timestamp(),
       S1 = socket_open([{ip,Addr}], Timeout),
       ?LOGVAR(S1),
       P1 = socket_call(S1, get_port),
  
positive.code: 	 {[#sctp_sndrcvinfo{stream=Stream,assoc_id=AssocId}=SRI],Data}}
  	  when not is_tuple(Data) ->
  	    case gb_get({assoc_change,AssocId}, State) of
  		[{_,{Addr,Port,
  		     #sctp_assoc_change{
  			state=comm_up,
  			inbound_streams=Is}}}|_]
  		  when 0 =< Stream, Stream < Is-> ok;
  		[] -> ok
  	    end,
  	    Key = {msg,AssocId,Stream},
  	    Val = {now(),{Addr,Port,SRI,Data}},
  	    NewState = gb_push(Key, Val, State),
  	    Parent ! {self(),{Addr,Port,AssocId,Stream,Data}},
  	    again(Socket),
  	    s_loop(Socket, Timeout, Parent, Handler, NewState);
  
negative.code:        assoc_id=S2AssocId} = S2AssocChange =
  	log_ok(gen_sctp:connect(S2, Loopback, P1, [])),
      ?LOGVAR(S2AssocChange),
      S1AssocId =
  	case recv_event(log_ok(gen_sctp:recv(S1))) of
  	    {Loopback,P2,
  	     #sctp_assoc_change{
  		state=comm_up,
  		error=0,
  		assoc_id=AssocId}} ->
  		AssocId;
  	    {Loopback,P2,
  	     #sctp_paddr_change{
  		state=addr_confirmed,
  		error=0,
  		assoc_id=AssocId}} ->
  		{Loopback,P2,
  		 #sctp_assoc_change{
  		    state=comm_up,
  		    error=0,
  		    assoc_id=AssocId}} =
  		    recv_event(log_ok(gen_sctp:recv(S1))),
  		AssocId
  	end,
      ?LOGVAR(S1AssocId),
  
      #sctp_sndrcvinfo{
         ppid=17, context=0, timetolive=0} = %, assoc_id=S1AssocId} =
  