diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index 5d2762eb2..dabc8c9d3 100644
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@@ -1408,6 +1408,7 @@ postCCommR tid ssh csh = do
             E.where_ $ E.exists $ E.from $ \(sheet `E.InnerJoin` corrector) -> do
               E.on $ sheet E.^. SheetId E.==. corrector E.^. SheetCorrectorSheet
               E.where_ $ sheet E.^. SheetCourse E.==. E.val cid
+                   E.&&. user E.^. UserId E.==. corrector E.^. SheetCorrectorUser
             return user
         )
       , ( RGCourseTutors
@@ -1415,6 +1416,7 @@ postCCommR tid ssh csh = do
             E.where_ $ E.exists $ E.from $ \(tutorial `E.InnerJoin` tutor) -> do
               E.on $ tutorial E.^. TutorialId E.==. tutor E.^. TutorTutorial
               E.where_ $ tutorial E.^. TutorialCourse E.==. E.val cid
+                   E.&&. user E.^. UserId E.==. tutor E.^. TutorUser
             return user
         )
       ]