diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs
index daaa269a0..70996ab93 100644
--- a/src/Handler/Exam/Correct.hs
+++ b/src/Handler/Exam/Correct.hs
@@ -74,9 +74,7 @@ getECorrectR tid ssh csh examn = do
     examParts <- sortOn (view $ _entityVal . _examPartNumber) <$> selectList [ ExamPartExam ==. eId ] [ Asc ExamPartName ]
     return (exam, entityVal <$> examParts)
 
-  -- TODO submit exam results: work in progress
-  -- mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR
-  let mayEditResults = False
+  mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR
   
   let
     heading = prependCourseTitle tid ssh csh $ (mr . MsgExamCorrectHeading . CI.original) examName