anchor.diff:      receive
   	{S1,{Addr,P2,S1Ai,Stream,Data}} -> ok
       after Timeout ->
  -	    socket_bailout([S1,S2])
  +	    socket_bailout([S1,S2], StartTime)
       end,
       %%
  -    socket_close_verbose(S1),
  +    socket_close_verbose(S1, StartTime),
       receive
   	{S2,{Addr,P1,#sctp_shutdown_event{assoc_id=S2Ai}}} -> ok
       after Timeout ->
  -	    socket_bailout([S2])
  +	    socket_bailout([S2], StartTime)
       end,
       receive
   	{S2,{Addr,P1,#sctp_assoc_change{state=shutdown_comp,
   					assoc_id=S2Ai}}} -> ok
       after Timeout ->
  -	    socket_bailout([S2])
  -    end,
  -    socket_close_verbose(S2),
  +	    socket_bailout([S2], StartTime)
  +    end,
  +    socket_close_verbose(S2, StartTime),
       [] = flush(),
       ok.
   
  
positive.code: 	{unix,sunos} -> B;
  	_ -> A = B
      end.
  
negative.code:     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),
  