anchor.diff:  				{error, Reason} ->
   				    logger:log(error, "TCP listener: Could not change controlling process of SSL socket ~p to ~p : ~p",
   					       [Socket, RecvPid, Reason]),
  +				    %% XXX close socket here?
   				    error
   			    end;
   			Unknown ->
  -			    logger:log(error, "TCP listener: Could not get receiver pid from newly started tcp connection ~p",
  -				       [ConnPid]),
  +			    logger:log(error, "TCP listener: Could not get receiver pid from newly started tcp connection ~p. Returned :~n~p",
  +				       [ConnPid, Unknown]),
  +			    %% XXX close socket here?
   			    error
   		    end;
   		_ ->
  
positive.code: 		      {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]),
  
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}]),
  