diff --git a/src/Utils/Course.hs b/src/Utils/Course.hs
index 19726c54e..55dc4f005 100644
--- a/src/Utils/Course.hs
+++ b/src/Utils/Course.hs
@@ -141,7 +141,7 @@ courseAllocationRegistrationOpen now cid maid = E.exists . E.from $ \(allocation
             (\registerFrom -> registerFrom E.<=. E.val now)
             (allocation E.^. AllocationRegisterFrom)
     E.&&. E.maybe
-            (E.val True)
+            E.true
             (\registerTo   -> E.val now    E.<=. registerTo)
             (allocation E.^. AllocationRegisterTo)
     E.&&. maybe (E.val True) (\aid -> aid E.==. allocation E.^. AllocationId) maid