PromptPurchaseFinished won't fire, what's wrong?

Everything works but PromptPurchaseFinished, the Marketplace charges me but it doesn't fire the event that stores and gives the item.

local PurchaseEvent = game.ReplicatedStorage.PurchaseEvent
local MarketplaceService = game:GetService("MarketplaceService")
local History = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")
local PlayerInventory = game:GetService("DataStoreService"):GetDataStore("PlayerInventory")
local C5 = 25816199 
local C10 = 25855812 
local C15 = 25855821

PurchaseEvent.OnServerEvent:connect(function(Player,Item, Price)
	local TotalPrice
	print(Player.Name)
	print(Item)
	print(Price)
	if Price == 5 then
		TotalPrice = C5
	elseif Price == 10 then
		TotalPrice = C10
	elseif Price == 15 then
		TotalPrice = C15
	end
	print(C5.." "..C10.." ".. C10)
	print(TotalPrice)
	MarketplaceService:PromptProductPurchase(Player, TotalPrice)
end)

MarketplaceService.PromptPurchaseFinished:connect(function(Player, ItemID, Purchased)
	print("Purchase finished")
	if Purchased then
		local wantedItem = Player.PlayerGui.CAStore.ItemCart.Value
		local clonedItem = game.ServerStorage.wantedItem:Clone()
		clonedItem.Parent = Player.Backpack
	MarketplaceService.ProcessReceipt = function(receiptInfo, Player) 
	local DataToBeSaved = receiptInfo.PlayerId.. " bought " .. receiptInfo.ProductId .. " by " .. receiptInfo.CurrencySpent .. "."
	print(DataToBeSaved)
     if Player.userId == receiptInfo.PlayerId then
	History:IncrementAsync(DataToBeSaved, 1)
	PlayerInventory:IncrementAsync(Player.PlayerGui.CAStore.ItemCart.Value, 1)
		
end
	return Enum.ProductPurchaseDecision.PurchaseGranted	
end
	end
end)