diff --git a/src/Handler/Admin/Tokens.hs b/src/Handler/Admin/Tokens.hs
index fbbd6e1de..949b0895f 100644
--- a/src/Handler/Admin/Tokens.hs
+++ b/src/Handler/Admin/Tokens.hs
@@ -141,7 +141,7 @@ postAdminTokensR = do
                        , E.maybe E.nothing (E.just . E.diffTimes (E.val now)) $ user E.^. UserLastAuthentication
                        )
               let users :: Map UserId (Maybe Rational)
-                  users = Map.fromList $ users'' <&> \(E.Value uid', E.Value mDiff) -> (uid', toRational <$> mDiff)
+                  users = Map.fromList $ users'' <&> \(E.Value uid', E.Value mDiff) -> (uid', recip . toRational <$> mDiff)
                   chooseUsers :: ConduitT () UserId (Rand Crypto.ChaChaDRG) ()
                   chooseUsers = C.unfoldM chooseUsers' (users, btfiCount)
                     where chooseUsers' (users', n) = runMaybeT $ do