Why isn't SetWaypoint working for my plugin?

I made a simple plugin but SetWaypoint functionality doesn't seem to be working. Am I doing it wrong?

local ChangeHistoryService = game:GetService("ChangeHistoryService")
local Selection = game:GetService("Selection")
local toolbar = plugin:CreateToolbar("Z Fighter") 
local newScriptButton = toolbar:CreateButton("Resolve Z-Fighting", "", "rbxassetid://1507949215")


local function onButtonClicked()
	ChangeHistoryService:SetWaypoint("Before apply") 
	
	local selectedObjects = Selection:Get()
	if #selectedObjects > 0 then
		local firstSelection = selectedObjects[1]		
		for i, p in pairs(firstSelection:GetChildren()) do
			if p:isA("Part") and i%2 == 1 then
				p.Position = p.Position + Vector3.new(0,0.001,0)
			end
		end
	end

	ChangeHistoryService:SetWaypoint("After apply")
end
newScriptButton.Click:Connect(onButtonClicked)