anchor.diff:      ?Debug("wait in accept ... ~n",[]),
       gen_tcp:accept(GS#gs.l);
   do_accept(GS) when GS#gs.ssl == ssl ->
  -    ssl:accept(GS#gs.l).
  +    ssl:accept(GS#gs.l,10000).
  +
  +
  +initial_acceptor(GS=#gs{ssl=nossl})->
  +    acceptor(GS);
  +initial_acceptor(GS=#gs{ssl=ssl}) ->
  +    initial_acceptor(GS, 5).
  +
  +initial_acceptor(GS, 0) ->
  +    ok;
  +initial_acceptor(GS, 1) ->
  +    acceptor(GS);
  +initial_acceptor(GS, N) when N>1 ->
  +    Self = self(),
  +    proc_lib:spawn_link(fun() ->
  +				receive
  +				after (N-1)*2000 ->
  +					acceptor0(GS, Self)
  +				end
  +			end),
  +    initial_acceptor(GS, N-1).
  +
   
   
   acceptor(GS) ->
  
positive.code: 		    error_logger:error_msg("Yaws process died: ~p~n", [Reason]),
  		    exit(normal)
  	    end,
  
  	    %% we cache processes
  	    receive
  		{Top, stop} ->
  		    exit(normal);
  
negative.code: 	    R ! {self(), accept},
  	    gserv_loop(GS, RS, Rnum-1);
  	{From, done_client, Int} ->
  	    GS2 = if
  		      Int == 0 -> GS;
  		      Int > 0 -> GS#gs{sessions = GS#gs.sessions + 1,
  				       reqs = GS#gs.reqs + Int}
  		  end,
      if
  		Rnum == 8 ->
  		    From ! {self(), stop},
  		    gserv_loop(GS2, Ready, Rnum);
  