anchor.diff:  	end,
       %%
       ?line socket_call(S1, {setopts,[{recbuf,Limit}]}),
  -    ?line case socket_call(S1, {getopts,[recbuf]}) of
  -	      [{recbuf,RB1}] when RB1 >= Limit -> ok
  -	  end,
  +    ?line Recbuf =
  +	    case socket_call(S1, {getopts,[recbuf]}) of
  +		[{recbuf,RB1}] when RB1 >= Limit -> RB1
  +	    end,
  +    ?line Data = mk_data(Recbuf+Limit),
  +    ?line socket_call(S2, {setopts,[{sndbuf,Recbuf+Limit}]}),
       ?line socket_call(S2, {send,S2Ai,Stream,Data}),
       ?line
   	receive
  
positive.code: buffers(suite) ->
      [];
  buffers(Config) when is_list(Config) ->
      ?line Limit = 8192,
      ?line Data = mk_data(Limit),
      ?line Addr = {127,0,0,1},
      ?line Stream = 1,
      ?line Timeout = 1333,
      ?line S1 = socket_open([{ip,Addr}], Timeout),
      ?line ?LOGVAR(S1),
      ?line P1 = socket_call(S1, get_port),
  
negative.code: 	{value,V} ->
  	    V
      end.
  
  match_unless_solaris(A, B) ->
      case os:type() of
  	{unix,sunos} -> B;
  	_ -> A = B
      end.
  