diff --git a/src/Handler/Submission/Helper.hs b/src/Handler/Submission/Helper.hs
index 749f80ffb..d85afd934 100644
--- a/src/Handler/Submission/Helper.hs
+++ b/src/Handler/Submission/Helper.hs
@@ -582,6 +582,8 @@ submissionHelper tid ssh csh shn mcid = do
     guardM . lift $ orM
       [ hasWriteAccessTo $ CSubmissionR tid ssh csh shn cID SubDelR
       , hasWriteAccessTo $ CSubmissionR tid ssh csh shn cID SubShowR
+      , hasWriteAccessTo $ CSubmissionR tid ssh csh shn cID CorrectionR
+      , hasReadAccessTo $ CSheetR tid ssh csh shn SSubsR
       ]
     guardM . lift . E.selectExists . E.from $ \(submissionUser `E.InnerJoin` (otherSubmissionUser `E.InnerJoin` submission)) -> do
       E.on $ otherSubmissionUser E.^. SubmissionUserSubmission E.==. submission E.^. SubmissionId