anchor.diff:      ListenSocket = State#state.socket,
       Res = case SocketModule:accept(ListenSocket) of
   	      {ok, NewSocket} ->
  -		  %% XXX why on earth do we sleep here? must be debugging. REMOVE.
  -		  timer:sleep(500),
  -		  %%case catch SocketModule:peercert(NewSocket) of
  -		  %%    R ->
  -		  %%	  logger:log(debug, "Peer certificate :~n~p", [R])
  -		  %%  end,
   		  case InetModule:peername(NewSocket) of
   		      {ok, {IPlist, InPortNo}} ->
   			  IP = siphost:makeip(IPlist),
  
positive.code: 	Unknown ->
  	    logger:log(error, "TCP listener: Failed starting TCP connection for socket ~p : ~p",
  		       [Socket, Unknown]),
  	    error
      end.
  
negative.code: 		      {error, E} ->
  			  logger:log(error, "TCP listener: Could not get peername after accept() : ~p", [E]),
  			  {ok}
  		  end;
  	      {error, closed} ->
  		  logger:log(error, "TCP listener: accept() says the listensocket ~p was closed, no point in me staying alive.", [ListenSocket]),
  