diff --git a/src/Foundation.hs b/src/Foundation.hs
index 04e18506c..a878daacb 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -1009,8 +1009,8 @@ tagAccessPredicate AuthAllocationTime = APDB $ \mAuthId route _ -> case route of
     mba <- mbAllocation tid ssh csh
     case mba of
       Just (_, Allocation{..})
-        |    NTop allocationStaffRegisterTo <= NTop (Just now)
-          || NTop allocationStaffRegisterFrom >= NTop (Just now)
+        |    NTop allocationRegisterByStaffTo <= NTop (Just now)
+          || NTop allocationRegisterByStaffFrom >= NTop (Just now)
           -> unauthorizedI MsgUnauthorizedAllocatedCourseRegister
       _other -> return Authorized