Fixed base_pokemon_modernimpl::set_form logic