diff --git a/src/Jobs/Handler/SendNotification/Allocation.hs b/src/Jobs/Handler/SendNotification/Allocation.hs
index 3a33f8c5b..0f9a50741 100644
--- a/src/Jobs/Handler/SendNotification/Allocation.hs
+++ b/src/Jobs/Handler/SendNotification/Allocation.hs
@@ -74,7 +74,7 @@ dispatchNotificationAllocationAllocation (otoList -> nAllocations) jRecipient =
 
   unless (null courses) . userMailT jRecipient $ do
     now <- liftIO getCurrentTime
-    let doRegisterDeadlines = any (> NTop (Just now)) $ map (NTop . allocationRegisterTo . entityVal) allocations
+    let doRegisterDeadlines = any (((<) `on` NTop) (Just now) . allocationRegisterTo . entityVal) allocations
 
     replaceMailHeader "Auto-Submitted" $ Just "auto-generated"
     case allocations of