anchor.diff:  accept_loop(Proxy, erts = Type, Listen, Extra) ->
       process_flag(priority, max),
       case gen_tcp:accept(Listen) of
  -		{ok, Socket} ->
  -		    Extra ! {accept,self(),Socket,inet,proxy},
  -		    receive 
  -			{_Kernel, controller, Pid} ->
  -			    ok = gen_tcp:controlling_process(Socket, Pid),
  -			    flush_old_controller(Pid, Socket),
  -			    Pid ! {self(), controller};
  -			{_Kernel, unsupported_protocol} ->
  -			    exit(unsupported_protocol)
  -		    end;
  -		Error ->
  +	{ok, Socket} ->
  +	    Extra ! {accept,self(),Socket,inet,proxy},
  +	    receive 
  +		{_Kernel, controller, Pid} ->
  +		    ok = gen_tcp:controlling_process(Socket, Pid),
  +		    flush_old_controller(Pid, Socket),
  +		    Pid ! {self(), controller};
  +		{_Kernel, unsupported_protocol} ->
  +		    exit(unsupported_protocol)
  +	    end;
  +	Error ->
   	    exit(Error)
       end,
       accept_loop(Proxy, Type, Listen, Extra);
  
positive.code: ssl_options(server, ["server_cacertfile", Value|T]) ->
      [{cacertfile, Value} | ssl_options(server,T)];
  ssl_options(client, ["client_cacertfile", Value|T]) ->
       [{cacertfile, Value} | ssl_options(client,T)];
  ssl_options(server, ["server_keyfile", Value|T]) ->
      [{keyfile, Value} | ssl_options(server,T)];
  ssl_options(client, ["client_keyfile", Value|T]) ->
  
negative.code: ssl_options(client, ["client_hibernate_after", Value|T]) ->
      [{hibernate_after, list_to_integer(Value)} | ssl_options(client,T)];
  ssl_options(server, ["server_ciphers", Value|T]) ->
      [{ciphers, Value} | ssl_options(server,T)];
  ssl_options(client, ["client_ciphers", Value|T]) ->
      [{ciphers, Value} | ssl_options(client,T)];
  ssl_options(server, ["server_dhfile", Value|T]) ->
      [{dhfile, Value} | ssl_options(server,T)];
  ssl_options(server, ["server_fail_if_no_peer_cert", Value|T]) ->
      [{fail_if_no_peer_cert, atomize(Value)} | ssl_options(server,T)];
  ssl_options(_,_) ->
  