anchor.diff:  		confirm1(RadiusFsm, AccessRequest, NewStateData)
   	catch
   		_:_ ->
  -			radius:response(RadiusFsm, {error, ignore}),
  +			EapPacket = #eap_packet{code = failure, identifier = EapID},
  +			send_response(EapPacket, ?AccessReject,
  +					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
   			{stop, {shutdown, SessionID}, StateData}
   	end.
   %% @hidden
  
positive.code: 	case catch ocs_eap_pwd:compute_ks(<<Srand:256>>,
  			PWE, ScalarP, ElementP) of
  		{'EXIT', _Reason} ->
  			radius:response(RadiusFsm, {error, ignore}),
  			{next_state, commit, StateData, ?TIMEOUT};
  		Ks ->
  			Ciphersuite = <<GroupDesc:16, RandFunc, PRF>>,
  			Input = [Ks, ElementS, ScalarS, ElementP, ScalarP, Ciphersuite],
  
negative.code: %% @hidden
  commit4(RadiusFsm, #radius{id = RadiusID,
  		authenticator = RequestAuthenticator} = _AccessRequest,
  		#statedata{eap_id = EapID, secret = Secret, session_id = SessionID,
  		scalar_p = ScalarP, element_p = ElementP,
  		scalar_s = ScalarS, element_s = ElementS,
  		s_rand = Srand, pwe = PWE, group_desc = GroupDesc,
  