anchor.diff:  		case 	wait_for_commit1(BodyData, StateData) of
   			ok ->
   				Ks = ocs_eap_pwd:compute_ks(Password, PWE, ScalarP, ElementP),
  -				%% @todo implement eap_pwd_confirm record and corresponding codec function
  -				%%Body = #eap_pwd_confirm{confirm = Ks},
  -				%%BodyData = ocs_eap_codec:eap_pwd_confirm(Body),
  +				Body = #eap_pwd_confirm{confirm = Ks},
  +				BodyData = ocs_eap_codec:eap_pwd_confirm(Body),
   				BodyData = <<"EAP Confirm Request payload data">>,
   				Header = #eap_pwd{type = ?PWD, length = false,
   						more = false, pwd_exch = confirm, data = BodyData},
  
positive.code: %%
  wait_for_confirm(timeout, #statedata{session_id = SessionID} = StateData)->
  	{stop, {shutdown, SessionID}, StateData};
  wait_for_confirm(_Event, StateData)->
  	{next_state, idle, StateData, ?TIMEOUT}.
  
  -spec handle_event(Event :: term(), StateName :: atom(),
  		StateData :: #statedata{}) ->
  
negative.code: 	end.
  %% @hidden
  wait_for_commit3(#statedata{scalar_p = ScalarP, radius_fsm = RadiusFsm, radius_id = RadiusID,
  		secret = Secret, authenticator = RequestAuthenticator} = _StateData)->
  	case ScalarP of
  		_ValidScalarP when  1 =< ScalarP, ScalarP >= $R ->
  			ok;
  