anchor.diff:  		<<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),
  +			EapPacket = #eap_packet{code = failure,
  +					type = ?PWD, identifier = EapID},
  +			send_response(EapPacket, ?AccessReject,
  +					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
   			{stop, {shutdown, SessionID}, StateData}
   	end.
   %% @hidden
  
positive.code: 		ConfirmP ->
  			confirm3(RadiusFsm, AccessRequest, StateData);
  		_ ->
  			send_response(failure, EapID, <<>>, ?AccessReject, RadiusID,
  					[], RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData}
  	end.
  
negative.code: 	NewStateData = StateData#statedata{token = Token, start = undefined},
  	case radius_attributes:find(?EAPMessage, RequestAttributes) of
  		{ok, <<>>} ->
  			EapPacket = #eap_packet{code = request,
  					type = ?PWD, identifier = EapID, data = EapData},
  			send_response(EapPacket, ?AccessChallenge,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{next_state, id, NewStateData, ?TIMEOUT};
  		{ok, EAPMessage} ->
  