anchor.diff:  %%
   
   -export([listen/1, accept/1, accept_connection/5,
  -	 setup/5, close/1, select/1, is_node_name/1]).
  +	 setup/5, close/1, select/1, is_node_name/1,
  +         address/0]).
   
   %% Optional
   -export([setopts/2, getopts/2]).
  
positive.code: %% ------------------------------------------------------------
  get_tcp_address(Socket) ->
      {ok, Address} = inet:sockname(Socket),
      {ok, Host} = inet:gethostname(),
      #net_address {
  		  address = Address,
  		  host = Host,
  		  protocol = tcp,
  		  family = inet
  
negative.code:             end;
  	_ -> false
      end.
  
  %% ------------------------------------------------------------
  %% Get the address family that this distribution uses
  %% ------------------------------------------------------------
  address() ->
      get_tcp_address().
  
  %% ------------------------------------------------------------
  %% Create the listen socket, i.e. the port that this erlang
  