anchor.diff:  					{address, Address}, {session, AcctSessionId}]),
   			{reply, {ok, response(Id, Authenticator, Secret)}, State};
   		{disabled, SessionList} ->
  -			start_disconnect(State, Subscriber, SessionList),
  -			{reply, {ok, response(Id, Authenticator, Secret)}, State};
  +			gen_server:reply(From, {ok, response(Id, Authenticator, Secret)}),
  +			start_disconnect(State, Subscriber, SessionList),
  +			{noreply, State};
   		{ok, #subscriber{}, _} ->
   			ok = ocs_log:acct_log(radius, {ServerAddress, ServerPort}, start, Attributes),
   			{reply, {ok, response(Id, Authenticator, Secret)}, State}
   	end;
   request1(?AccountingStop, AcctSessionId, Id,
   		Authenticator, Secret, NasId, Address, _AccPort, _ListenPort, Attributes,
  -		#state{address = ServerAddress, port = ServerPort} = State) ->
  -
  +		From, #state{address = ServerAddress, port = ServerPort} = State) ->
   	InOctets = radius_attributes:find(?AcctInputOctets, Attributes),
   	OutOctets = radius_attributes:find(?AcctOutputOctets, Attributes),
   	UsageOctets = case {InOctets, OutOctets} of
  
positive.code: 					{address, Address}, {session, AcctSessionId}]),
  			{reply, {ok, response(Id, Authenticator, Secret)}, State};
  		{disabled, SessionList} ->
  			start_disconnect(State, Subscriber, SessionList),
  			{reply, {ok, response(Id, Authenticator, Secret)}, State};
  		{ok, #subscriber{}, _} ->
  			{reply, {ok, response(Id, Authenticator, Secret)}, State}
  	end;
  request1(?AccountingInterimUpdate, AcctSessionId, Id,
  		Authenticator, Secret, NasId, Address, _AccPort, _ListenPort, Attributes,
  		#state{address = ServerAddress, port = ServerPort} = State) ->
  	InOctets = radius_attributes:find(?AcctInputOctets, Attributes),
  	OutOctets = radius_attributes:find(?AcctOutputOctets, Attributes),
  	UsageOctets = case {InOctets, OutOctets} of
  
negative.code: 	DebitAmount = [{octets, UsageOctets}, {seconds, UsageSecs}],
  	case ocs_rating:rate(radius, Subscriber, final, DebitAmount, [], Candidates) of
  		{out_of_credit, SessionList}  ->
  			gen_server:reply(From, {ok, response(Id, Authenticator, Secret)}),
  			start_disconnect(State, Subscriber, SessionList),
  			{noreply, State};
  		{error, Reason} ->
  			error_logger:warning_report(["Accounting failed",
  					{error, Reason}, {module, ?MODULE},
  