anchor.diff:      end.
   
   get_payload(Socket, Timeout, SslOption, ContentLength) ->
  -	M = fetch_comm_module(SslOption),
  +    M = fetch_comm_module(SslOption),
       apply(fetch_sets_module(SslOption), setopts, [Socket, [{packet, raw}]]),
  -	apply(M, recv, [Socket, ContentLength, Timeout]).
  +    apply(M, recv, [Socket, ContentLength, Timeout]).
   
   %% Exported: start_link/{1,5,6}
   
  
positive.code: open_socket(Host, Port, Options) ->
  	case fetch_comm_module(Options) of
  		ssl ->
  			%% Start ssl application 
  			application:start(ssl), 
  			%% Always seed 
  			ssl:seed("wheredoyouthinkitcanbefound"),
  			%% new ssl implementation does not seem to work as of R13B01
  			%%{ok, SslSocket} = ssl:connect(Host, Port, [{ssl_imp, new}, {active, false}, {verify, verify_none}]),
  			ssl:connect(Host, Port, [{verify, 0}, {active, false}]);
  		_ -> 
  			gen_tcp:connect(Host, Port, [{active, false}])
  	end.
  
  
negative.code: 
  start_link(IP, Port, MaxSessions, Timeout, Handler, State) ->
      OptionList = [{active, false}, {reuseaddr, true}] ++ ip(IP),
      SessionHandler = {xmlrpc_http, handler, [Timeout, Handler, State]},
      tcp_serv:start_link([Port, MaxSessions, OptionList, SessionHandler]).
  
  ip(all) -> [];
  