anchor.diff:  		      {error, E} ->
   			  logger:log(error, "TCP listener: Could not get peername after accept() : ~p", [E]),
   			  {ok}
  -		  end,
  -		  %% XXX receive with timeout 0? must be debugging.
  -		  receive
  -		      Msg ->
  -			  logger:log(normal, "FREDRIK: TCP LISTENER RECEIVED SIGNAL! ~p", [Msg])
  -		  after 0 ->
  -			  true
   		  end;
   	      {error, closed} ->
   		  logger:log(error, "TCP listener: accept() says the listensocket ~p was closed, no point in me staying alive.", [ListenSocket]),
  
positive.code: 				{error, Reason} ->
  				    logger:log(error, "TCP listener: Could not change controlling process of SSL socket ~p to ~p : ~p",
  					       [Socket, RecvPid, Reason]),
  				    error
  			    end;
  			Unknown ->
  			    logger:log(error, "TCP listener: Could not get receiver pid from newly started tcp connection ~p",
  				       [ConnPid]),
  			    error
  		    end;
  		_ ->
  
negative.code: 	_ when Proto == tls; Proto == tls6 ->
  	    case sipserver:get_env(ssl_server_certfile, none) of
  		none ->
  		    logger:log(normal, "NOT starting ~p listener, no SSL server certificate specified (see README)", [Proto]),
  		    not_started;
  		ClientCert ->
  		    NewOptions = lists:append(Options, [{certfile, ClientCert}]),
  