anchor.diff:          {ok, Ref} = prim_inet:async_accept(ListenSocket, -1),
   	io:format("ListenSocket created for ~p\n", [Ref]),
           {ok, #state{listener = ListenSocket,
  -                    acceptor = Ref}};
  +                    acceptor = Ref,
  +		    connection_number = 0}};
       {error, Reason} ->
           {stop, Reason}
       end.
  
positive.code:          terminate/2, code_change/3]).
  
  -record(state, {
                  listener,       % Listening socket
                  acceptor        % Asynchronous acceptor's internal reference
                 }).
  
  -define(SERVER, ?MODULE).
  
negative.code:         {error, NewRef} -> exit({async_accept, inet:format_error(NewRef)})
          end,
  
          {noreply, State#state{acceptor=NewRef, connection_number=X}}
      catch exit:Why ->
          error_logger:error_msg("Error in async accept: ~p.\n", [Why]),
          {stop, Why, State}
  