anchor.diff:      ?line ClientFamily = get_family_by_addr(AddressToConnectTo),
       ?line io:format("Connecting to ~p ~p~n",
   		    [ClientFamily, AddressToConnectTo]),
  -    ?line S2 = ok(gen_sctp:open(0, [ClientFamily])),
  +    ?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),
  
positive.code: %% 
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2007-2013. All Rights Reserved.
  
negative.code:     ?line SbOutboundStreams = SaInboundStreams,
      ?line ?LOGVAR(SbOutboundStreams),
      ?line ok = gen_sctp:send(Sa, SaAssocId, 0, Data),
      ?line case log_ok(gen_sctp:recv(Sb, infinity)) of
  	      {Loopback,
  	       Pa,
  	       [#sctp_sndrcvinfo{stream=Stream,
  				 assoc_id=SbAssocId}],
  	       Data} -> ok;
  	      {Loopback,
  	       Pa,[],
  	       #sctp_paddr_change{addr = {Loopback,_},
  				  state = addr_available,
  				  error = 0,
  				  assoc_id = SbAssocId}} ->
  		  {Loopback,
  		   Pa,
  		   [#sctp_sndrcvinfo{stream=Stream,
  				     assoc_id=SbAssocId}],
  		   Data} = log_ok(gen_sctp:recv(Sb, infinity));
  	      {Loopback,
  	       Pa,
  	       [#sctp_sndrcvinfo{stream=Stream,
  				 assoc_id=SbAssocId}],
  	       #sctp_paddr_change{addr = {Loopback,_},
  				  state = addr_confirmed,
  				  error = 0,
  				  assoc_id = SbAssocId}} ->
  		  {Loopback,
  		   Pa,
  		   [#sctp_sndrcvinfo{stream=Stream,
  				     assoc_id=SbAssocId}],
  		   Data} = log_ok(gen_sctp:recv(Sb, infinity))
  	  end,
      ?line ok =
  	do_from_other_process(
  