[votan]

And this should correct it:

do
    local orgGetCategoryInfoFromData = ACHIEVEMENTS.GetCategoryInfoFromData
    function ACHIEVEMENTS.GetCategoryInfoFromData(self, data, parentData)
        if not data.isFakedSubcategory and parentData then
            return orgGetCategoryInfoFromData(self, data, parentData)
        else
            local numSubCategories, numAchievements, earnedPoints, totalPoints, hidesPoints = select(2, self:GetCategoryInfo(data.categoryIndex))
            if parentData then
                for index = 1, numSubCategories do
                    local subEarned, subTotal = select(3, self:GetSubCategoryInfo(parentData.categoryIndex, index))
                    earnedPoints, totalPoints = earnedPoints - subEarned, totalPoints - subTotal
                end
            end
            return numAchievements, earnedPoints, totalPoints, hidesPoints
        end
    end
end