diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs
index 364a8fcf7..38f862fa6 100644
--- a/src/Handler/Exam/Correct.hs
+++ b/src/Handler/Exam/Correct.hs
@@ -110,7 +110,7 @@ postECorrectR tid ssh csh examn = do
 
   CorrectInterfaceRequest{..} <- requireCheckJsonBody
 
-  let mayEditResults = False
+  mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR
   
   response <- runDB . exceptT (<$ transactionUndo) return $ do
     Entity eId Exam{..} <- lift $ fetchExam tid ssh csh examn