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