*** ssl_prim.erl.orig	Tue Jul 17 09:52:21 2007
--- ssl_prim.erl	Tue Jul 17 10:37:34 2007
***************
*** 42,48 ****
  accept(ListenSt0) when record(ListenSt0, st) ->
      case transport_accept(ListenSt0) of
  	{ok, ListenSt1} ->
! 	    ssl_accept(ListenSt1);
  	Error ->
  	    Error
      end.
--- 42,48 ----
  accept(ListenSt0) when record(ListenSt0, st) ->
      case transport_accept(ListenSt0) of
  	{ok, ListenSt1} ->
! 	    ssl_accept(ListenSt0, ListenSt1);
  	Error ->
  	    Error
      end.
***************
*** 53,68 ****
      ListenFd = ListenSocket#sslsocket.fd,
      ListenOpts = ListenSt#st.opts,
      ?filter(ssl_broker:transport_accept_prim(
! 	      ssl_server_prim, ListenFd,
! 	      ListenOpts, infinity, NewSt)).
  
! ssl_accept(ListenSt) when record(ListenSt, st) ->
!     NewSt = newstate(acceptor),
!     ListenSocket=ListenSt#st.thissock,
!     ListenFd = ListenSocket#sslsocket.fd,
      ?filter(ssl_broker:ssl_accept_prim(
! 	      ssl_server_prim, gen_tcp, self(), ListenFd, infinity, NewSt)).
! 
  
  close(_St = #st{fd = Fd}) when integer(Fd) ->
      ssl_server:close_prim(ssl_server_prim, Fd),
--- 53,65 ----
      ListenFd = ListenSocket#sslsocket.fd,
      ListenOpts = ListenSt#st.opts,
      ?filter(ssl_broker:transport_accept_prim(
!  		     ssl_server_prim, ListenFd,
! 		      ListenOpts, infinity, NewSt)).
  
! ssl_accept(ListenSt0, ListenSt1) when record(ListenSt0, st) ->    
!     LOpts=ListenSt0#st.opts,
      ?filter(ssl_broker:ssl_accept_prim(
! 	      ssl_server_prim, gen_tcp, self(), LOpts, infinity, ListenSt1)).
  
  close(_St = #st{fd = Fd}) when integer(Fd) ->
      ssl_server:close_prim(ssl_server_prim, Fd),
***************
*** 180,184 ****
  
  newstate(Type) ->
     #st{brokertype = Type, server = whereis(ssl_server_prim),
!        client = undefined, collector = undefiend, debug = false}. 
  
--- 177,181 ----
  
  newstate(Type) ->
     #st{brokertype = Type, server = whereis(ssl_server_prim),
!        client = undefined, collector = undefined, debug = false}.