anchor.diff:  	Unknown ->
   	    logger:log(error, "TCP listener: Failed starting TCP connection for socket ~p : ~p",
   		       [Socket, 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: 				{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. Returned :~n~p",
  				       [ConnPid, Unknown]),
  			    %% XXX close socket here?
  			    error
  		    end;
  		_ ->
  