anchor.diff:  %% @hidden
   wait_for_commit2(RadiusFsm, #radius{id = RadiusID,
   		authenticator = RequestAuthenticator} = AccessRequest,
  -		BodyData, #statedata{element_p = ElementP, scalar_p = ScalarP,
  +		#statedata{element_p = ElementP, scalar_p = ScalarP,
   		scalar_s = ScalarS, element_s = ElementS, secret = Secret,
   		eap_id = NewEapID} = StateData) ->
   	case {ElementP, ScalarP} of
  
positive.code: 	ExpectedSize = size(<<ElementS/binary, ScalarS/binary>>),
  	case size(BodyData) of 
  		ExpectedSize ->
  			wait_for_commit2(RadiusFsm, AccessRequest, BodyData, StateData);
  		_ ->
  			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  
negative.code: 					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  			{error, exit};
  		_ ->
  			wait_for_commit3(RadiusFsm, AccessRequest, StateData)
  	end.
  %% @hidden
  wait_for_commit3(RadiusFsm, #radius{id = RadiusID,
  		authenticator = RequestAuthenticator} = _AccessRequest,
  		#statedata{scalar_p = ScalarP, secret = Secret,
  		eap_id = NewEapID} = _StateData)->
  	case ScalarP of
  