anchor.diff:  	end,
       s_start(Starter, Timeout).
   
  -socket_peeloff(Socket, AssocId, Timeout) ->
  -    Opts = [{active,once},binary],
  +socket_peeloff(Socket, AssocId, SocketOpts, Timeout) ->
  +    Opts = [binary|SocketOpts],
       Starter =
   	fun () ->
   		{ok,NewSocket} =
  
positive.code:    [basic/1,
      api_open_close/1,api_listen/1,api_connect_init/1,api_opts/1,
      xfer_min/1,xfer_active/1,def_sndrcvinfo/1,implicit_inet6/1,
      basic_stream/1, xfer_stream_min/1, peeloff/1, buffers/1,
      open_multihoming_ipv4_socket/1,
      open_unihoming_ipv6_socket/1,
      open_multihoming_ipv6_socket/1,
      open_multihoming_ipv4_and_ipv6_socket/1]).
  
  suite() -> [{ct_hooks,[ts_install_cth]}].
  
  all() -> 
      [basic, api_open_close, api_listen, api_connect_init,
       api_opts, xfer_min, xfer_active, def_sndrcvinfo, implicit_inet6,
       basic_stream, xfer_stream_min, peeloff, buffers,
       open_multihoming_ipv4_socket,
       open_unihoming_ipv6_socket,
       open_multihoming_ipv6_socket,
       open_multihoming_ipv4_and_ipv6_socket].
  
  groups() -> 
      [].
  
negative.code: 		socket_bailout([S1,S2])
  	end,
      %%
      ?line S3 = socket_peeloff(Socket1, S1Ai, SockOpts, Timeout),
      ?line ?LOGVAR(S3),
      ?line P3_X = socket_call(S3, get_port),
      ?line ?LOGVAR(P3_X),
  