diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index c3197f1b5..67d0b310e 100644
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@@ -178,7 +178,7 @@ examResultBonus bonusRule bonusPossible bonusAchieved = case bonusRule of
             passesPossible = getSum $ numSheetsPasses bonusPossible
             pointsPossible = getSum $ sumSheetsPoints bonusPossible - sumSheetsPassPoints bonusPossible
 
-    roundToPoints' mult = (* mult) . roundToPoints . (/ toRational mult)
+    roundToPoints' mult = (* mult) . (realToFrac :: Uni -> Points) . roundToPoints . (/ toRational mult)
 
 examGrade :: ( MonoFoldable mono
              , Element mono ~ ExamResultPoints