diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index 79878e05c..c3197f1b5 100644
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@@ -170,6 +170,7 @@ examResultBonus bonusRule bonusPossible bonusAchieved = case bonusRule of
         scalePasses :: Integer -> Rational
         -- ^ Rescale passes so count of all sheets with pass is worth as many points as sum of all sheets with points
         scalePasses passes
+          | pointsPossible <= 0, passesPossible <= 0 = 1 -- This arbitrarily identifies a pass as being worth one point if all sheets are `Bonus`; maybe weird
           | pointsPossible <= 0 = toRational mPoints / fromInteger passesPossible
           | passesPossible <= 0 = 0
           | otherwise = fromInteger passes / fromInteger passesPossible * toRational pointsPossible