diff --git a/src/Foundation/Authorization.hs b/src/Foundation/Authorization.hs
index c69a93ba3..ccfa3b84c 100644
--- a/src/Foundation/Authorization.hs
+++ b/src/Foundation/Authorization.hs
@@ -1254,7 +1254,7 @@ tagAccessPredicate AuthRegisterGroup = APDB $ \_ _ mAuthId route _ -> case route
         return Authorized
   r -> $unsupportedAuthPredicate AuthRegisterGroup r
 tagAccessPredicate AuthEmpty = APDB $ \_ _ mAuthId route _
-  -> let workflowInstanceWorkflowsEmpty rScope win = selectLanguageI18n <=< $memcacheAuthHere' (Right diffDay) (mAuthId, route) . maybeT (unauthorizedI18n MsgUnauthorizedWorkflowWorkflowsNotEmpty) $ do
+  -> let workflowInstanceWorkflowsEmpty rScope win = selectLanguageI18n <=< $cachedHereBinary (mAuthId, route) . maybeT (unauthorizedI18n MsgUnauthorizedWorkflowWorkflowsNotEmpty) $ do
            scope <- fromRouteWorkflowScope rScope
            let dbScope = scope ^. _DBWorkflowScope
                getWorkflowWorkflows = E.selectSource . E.from $ \(workflowWorkflow `E.InnerJoin` workflowInstance) -> do