anchor.diff: -%% 
  +%%
   %% %CopyrightBegin%
   %%
   %% Copyright Ericsson AB 2007-2013. All Rights Reserved.
  
positive.code:     ?line SbOutboundStreams = SaInboundStreams,
      ?line ?LOGVAR(SbOutboundStreams),
      ?line ok = gen_sctp:send(Sa, SaAssocId, 0, Data),
      ?line case gen_sctp:recv(Sb, infinity) of
  	      {ok,{Loopback,
  		   Pa,
  		   [#sctp_sndrcvinfo{stream=Stream,
  				     assoc_id=SbAssocId}],
  		   Data}} -> ok;
  	      {ok,{Loopback,
  		   Pa,[],
  		   #sctp_paddr_change{addr = {Loopback,_},
  				      state = addr_available,
  				      error = 0,
  				      assoc_id = SbAssocId}}} ->
  		  {ok,{Loopback,
  		       Pa,
  		       [#sctp_sndrcvinfo{stream=Stream,
  					 assoc_id=SbAssocId}],
  		       Data}} =	gen_sctp:recv(Sb, infinity)
  	  end,
      ?line ok =
  	do_from_other_process(
  
negative.code:     ?line ClientFamily = get_family_by_addr(AddressToConnectTo),
      ?line io:format("Connecting to ~p ~p~n",
  		    [ClientFamily, AddressToConnectTo]),
      ?line ClientOpts =
  	[ClientFamily |
  	 case ClientFamily of
  	    inet6 ->
  		[{ipv6_v6only,true}];
  	    _ ->
  		[]
  	 end],
      ?line S2 = ok(gen_sctp:open(0, ClientOpts)),
      log(open),
      %% Verify client can connect
      ?line #sctp_assoc_change{state=comm_up} = S2Assoc =
  	ok(gen_sctp:connect(S2, AddressToConnectTo, P1, [])),
      log(comm_up),
      %% verify server side also receives comm_up from client
      ?line S1Assoc = recv_comm_up_eventually(S1),
      ?line Result = Fun(S1, ServerFamily, S1Assoc, S2, ClientFamily, S2Assoc),
  