anchor.diff:  					{ok, idle, StateData, ?TIMEOUT}
   			end;
   		{error, not_found} ->
  -			send_response(?Identity, EapID, EapData, ?AccessChallenge,
  +			send_response(?Request, EapID, EapData, ?AccessChallenge,
   					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
   			{next_state, wait_for_id, NewStateData, ?TIMEOUT}
   	end;
  
positive.code: 		session_id:: {NAS :: inet:ip_address() | string(),
  				Port :: string(), Peer :: string()},
  		eap_id = 0 :: byte(),
  		grp_dec  = 19 :: byte(),
  		rand_func = 1 :: byte(),
  		prf = 1 :: byte(),
  		secret :: binary(),
  
negative.code: 	{stop, {shutdown, SessionID}, StateData};
  wait_for_commit({#radius{id = RadiusID, authenticator = RequestAuthenticator,
  		attributes = Attributes} = AccessRequest, RadiusFsm},
  		#statedata{eap_id = EapID, secret = Secret, group_desc = GroupDesc,
  		rand_func = RandFunc, prf = PRF, pwe = PWE, element_s = ElementS,
  		scalar_s = ScalarS, s_rand = S_rand} = StateData)->
  	try 
  