anchor.diff:  				CommitReqHeader = #eap_pwd{length = false,
   					more = false, pwd_exch = commit, data = CommitReqBody},
   				CommitEapData = ocs_eap_codec:eap_pwd(CommitReqHeader),
  -				send_response(request, NewEapID, CommitEapData,
  -						?AccessChallenge, RadiusID, [], RequestAuthenticator,
  -						Secret, RadiusFsm),
  +				EapPacket = #eap_packet{code = request,
  +						type = ?PWD, identifier = NewEapID, data = CommitEapData},
  +				send_response(EapPacket, ?AccessChallenge, RadiusID,
  +						[], RequestAuthenticator, Secret, RadiusFsm),
   				NewStateData = StateData#statedata{pwe = PWE, s_rand = S_rand,
   					peer_id = PeerID, eap_id = NewEapID, scalar_s = ScalarS,
   					element_s = ElementS},
   				{next_state, commit, NewStateData, ?TIMEOUT};
   			{error, _Reason} ->
  -				send_response(failure, EapID, <<>>, ?AccessReject,
  +				EapPacket = #eap_packet{code = failure,
  +						type = ?PWD, identifier = NewEapID},
  +				send_response(EapPacket, ?AccessReject,
   					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
   				{stop, {shutdown, SessionID}, StateData}
   		end
  
positive.code: 		<<ScalarP_Valid:256>> when 1 < ScalarP_Valid, ScalarP_Valid < ?R ->
  			commit4(RadiusFsm, AccessRequest, StateData);
  		_ScalarP_Out_of_Range ->
  			send_response(failure, EapID, <<>>, ?AccessReject, RadiusID,
  					[], RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData}
  	end.
  %% @hidden
  
negative.code: 					more = false, pwd_exch = confirm, data = ConfirmS},
  			ConfirmEapData = ocs_eap_codec:eap_pwd(ConfirmHeader),
  			NewEapID = EapID + 1,
  			EapPacket = #eap_packet{code = request,
  					type = ?PWD, identifier = NewEapID, data = ConfirmEapData},
  			send_response(EapPacket, ?AccessChallenge,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			NewStateData = StateData#statedata{eap_id = NewEapID, ks = Ks,
  					confirm_s = ConfirmS},
  