diff --git a/src/Handler/Course/List.hs b/src/Handler/Course/List.hs
index 7b558b46a..98618f45e 100644
--- a/src/Handler/Course/List.hs
+++ b/src/Handler/Course/List.hs
@@ -123,6 +123,8 @@ makeCourseTable colChoices psValidator' = do
         course <- view queryCourse
         school <- view querySchool
 
+        lift . E.on $ course E.^. CourseSchool E.==. school E.^. SchoolId
+
         registered <- view $ queryIsRegistered muid ata
         isEditor <- view $ queryIsEditor muid ata