anchor.diff:  request(Address, Port, Packet, #state{port_server = Server} = _State)
   		when is_tuple(Address) ->
   	try
  -		{ok, #client{secret = SharedSecret}} = ocs:find_client(Address),
  +		{ok, #client{secret = SharedSecret,
  +				identifier = ClientID}} = ocs:find_client(Address),
   		Radius = radius:codec(Packet),
   		#radius{code = ?AccessRequest, attributes = AttributeData} = Radius,
   		Attributes = radius_attributes:codec(AttributeData),
  
positive.code: %%  internal functions
  %%----------------------------------------------------------------------
  
  
negative.code: 				{eap, EapMessage};
  			{error, not_found} ->
  				none
  		end,
  		case radius_attributes:find(?NasIdentifier, Attributes) of
  			{ok, NasIdentifier} ->
  				update_client(Address, ClientID, NasIdentifier); 
  			{error, not_found} ->
  				ok
  		end,
  		{SharedSecret, Radius#radius{attributes = Attributes}, Eap}
  	of
  