diff --git a/src/Handler/Exam/Users.hs b/src/Handler/Exam/Users.hs
index 121f430ff..966853113 100644
--- a/src/Handler/Exam/Users.hs
+++ b/src/Handler/Exam/Users.hs
@@ -690,6 +690,8 @@ postEUsersR tid ssh csh examn = do
                           -> return ()
                       _ | is _Nothing newBonus
                           -> return ()
+                      _ | Just ExamBonusManual{} <- examBonusRule
+                          -> yield $ ExamUserCsvSetBonusData False uid newBonus
                       Nothing
                         -> yield $ ExamUserCsvSetBonusData False uid newBonus
                       Just _