anchor.diff:  			wait_for_commit4(RadiusFsm, AccessRequest, StateData);
   		_ScalarP_Out_of_Range ->
   			send_response(?EapFailure, EapID, <<>>, ?AccessReject, RadiusID,
  -					RequestAuthenticator, Secret, RadiusFsm),
  +					[], RequestAuthenticator, Secret, RadiusFsm),
   			{stop, {shutdown, SessionID}, StateData}
   	end.
   %% @hidden
  
positive.code: 		authenticator = RequestAuthenticator} = _AccessRequest,
  		#statedata{secret = Secret, eap_id = EapID, ks = Ks,
  		confirm_p = ConfirmP, confirm_s = ConfirmS,
  		session_id = SessionID} = StateData) ->
  	MK = ocs_eap_pwd:h([Ks, ConfirmP, ConfirmS]),
  	NewStateData = StateData#statedata{mk = MK},
  	send_response(?EapSuccess, EapID, <<>>, ?AccessAccept,
  			RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  	{stop, {shutdown, SessionID}, NewStateData}.
  
  -spec handle_event(Event :: term(), StateName :: atom(),
  
negative.code: 	case {ElementP, ScalarP} of
  		{ElementS, ScalarS} ->
  			send_response(?EapFailure, EapID, <<>>, ?AccessReject,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData};
  		_ ->
  			wait_for_commit3(RadiusFsm, AccessRequest, StateData)
  