diff --git a/src/Utils/Course.hs b/src/Utils/Course.hs
index 55dc4f005..8d7e0062d 100644
--- a/src/Utils/Course.hs
+++ b/src/Utils/Course.hs
@@ -144,7 +144,7 @@ courseAllocationRegistrationOpen now cid maid = E.exists . E.from $ \(allocation
             E.true
             (\registerTo   -> E.val now    E.<=. registerTo)
             (allocation E.^. AllocationRegisterTo)
-    E.&&. maybe (E.val True) (\aid -> aid E.==. allocation E.^. AllocationId) maid
+    E.&&. maybe E.true (\aid -> aid E.==. allocation E.^. AllocationId) maid
 
 
 numCourseParticipants :: E.SqlExpr (E.Value CourseId) -> E.SqlExpr (E.Value Int)