diff --git a/src/Handler/Course/Register.hs b/src/Handler/Course/Register.hs
index e180b0243..f23971e43 100644
--- a/src/Handler/Course/Register.hs
+++ b/src/Handler/Course/Register.hs
@@ -268,7 +268,7 @@ postCRegisterR tid ssh csh = do
   muid <- maybeAuthId
   ata <- getSessionActiveAuthTags
   now <- liftIO getCurrentTime
-  courseVisible <- runDB $ E.selectExists . E.from $ \c -> E.where_ $  -- TODO meh...
+  courseVisible <- runDB . E.selectExists . E.from $ \c -> E.where_ $
     c E.^. CourseId E.==. E.val cid
     E.&&. mayViewCourse muid ata now c Nothing
   redirect $ bool NewsR (CourseR tid ssh csh CShowR) courseVisible