anchor.diff:  				{PriceReserve, Buckets3} ->
   					rate6(Subscriber#subscriber{buckets = Buckets3},
   							initial, 0, 0, ReserveAmount,
  -							UnitsReserved + UnitReserve, SessionId);
  +							UnitsReserved + UnitReserve, SessionId, Rated);
   				{PriceReserved, Buckets3} ->
   					rate6(Subscriber#subscriber{buckets = Buckets3},
   							initial, 0, 0, ReserveAmount,
  -							UnitsReserved + (PriceReserved div UnitPrice), SessionId)
  +							UnitsReserved + (PriceReserved div UnitPrice),
  +							SessionId, Rated)
   			end
   	end;
   rate5(#subscriber{enabled = false, buckets = Buckets1} = Subscriber,
   		#price{units = Units, size = UnitSize, amount = UnitPrice},
  -		_Validity, interim, DebitAmount, _ReserveAmount, SessionAttributes) ->
  +		_Validity, interim, DebitAmount, _ReserveAmount,
  +		SessionAttributes, Rated) ->
   	SessionId = get_session_id(SessionAttributes),
   	case update_session(Units, DebitAmount, 0, SessionId, Buckets1) of
   		{DebitAmount, 0, Buckets2} ->
   			rate6(Subscriber#subscriber{buckets = Buckets2}, interim,
  -					DebitAmount, DebitAmount, 0, 0, SessionId);
  +					DebitAmount, DebitAmount, 0, 0, SessionId, Rated);
   		{UnitsCharged, 0, Buckets2} ->
   			PriceChargeUnits = DebitAmount - UnitsCharged,
   			{UnitCharge, PriceCharge} = price_units(PriceChargeUnits,
  
positive.code: 	{disabled, SessionList};
  rate6(#subscriber{session_attributes = SessionList,
  		buckets = Buckets} = Subscriber1, _Flag,
  		Charge, Charged, Reserve, Reserved, SessionId)
  		when Charged < Charge; Reserved <  Reserve ->
  	NewBuckets = refund(SessionId, Buckets),
  	Subscriber2 = Subscriber1#subscriber{buckets = NewBuckets,
  
negative.code: %% 	determines the price used to calculate the amount to be
  %% 	permanently debited from available `cents' buckets.
  %%
  %% 	Returns `{ok, Subscriber, Rated}' if successful. The granted
  %% 	amount is found in `Rated#rated.bucket_value'.
  %%
  %% 	Returns `{out_of_credit, SessionList}' if the subscriber's
  %% 	balance is insufficient to cover the `DebitAmounts' and
  