anchor.diff:  %% handle_info
   %% =====
   
  -handle_info({'EXIT', Pid, Cause}, #state{acceptor = Pid} = State) ->
  -	Acceptor = spawn_link(?MODULE, spawn_acceptor, [State#state.listener]),
  -	{noreply, State#state{acceptor = Acceptor}};
  +handle_info({'EXIT', Pid, Cause}, #state{acceptors = Acceptors} = State) ->
  +	case Cause of
  +		Normies when Normies =:= normal; Normies =:= shutdown -> ok;
  +		_ -> ?info("Acceptor ~p died due to ~p", [Pid, Cause])
  +	end,
  +	CleanAcceptors = lists:delete(Pid, Acceptors),
  +	NewAcceptors = spawn_acceptors(State#state.listener, State#state.poolsize, CleanAcceptors),
  +	{noreply, State#state{acceptors = NewAcceptors}};
   
   handle_info(Req, State) ->
   	?debug("Unhandled info:  ~p", [Req]),
  
positive.code: 
  -record(state, {
  	listener,
  	acceptor
  }).
  
  %% =====
  %% API
  %% =====
  start() -> start([]).
  
  start(Args) -> gen_server:start(?MODULE, Args, []).
  
  start_link() -> start_link([]).
  
  start_link(Args) -> gen_server:start_link(?MODULE, Args, []).
  
  %% =====
  
negative.code: init(Args) ->
  	process_flag(trap_exit, true),
  	Port = proplists:get_value(port, Args, 6006),
  	PrivDir = pre_server_app:priv_dir(),
  	DefaultCertfile = filename:join(PrivDir, "precursors.crt"),
  	DefaultKeyfile = filename:join(PrivDir, "key.pub"),
  	Certfile = proplists:get_value(certfile, Args, DefaultCertfile),
  	Keyfile = proplists:get_value(keyfile, Args, DefaultKeyfile),
  	SimpleOpts = [list, {packet, line}, {reuseaddr, true},
  		{certfile, Certfile}, {keyfile, Keyfile}, {keepalive, true},
  		{backlog, 30}, {active, false}],
  	Poolsize = proplists:get_value(poolsize, Args, 5),
  	case ssl:listen(Port, SimpleOpts) of
  		{ok, Listen_socket} ->
  			Acceptors = spawn_acceptors(Listen_socket, Poolsize),
  			%%Create first accepting process
  			%Acceptor = spawn_link(?MODULE, spawn_acceptor, [Listen_socket]),
  			?info("Started on port ~p", [Port]),
  			{ok, #state{poolsize = Poolsize, listener = Listen_socket, acceptors= Acceptors}};
  		{error, Reason} ->
  			?warning("Could not start ssl:  ~p", [Reason]),
  			{stop, Reason}
  