diff --git a/src/Xero.hs b/src/Xero.hs
index e98921d..14091ce 100644
--- a/src/Xero.hs
+++ b/src/Xero.hs
@@ -283,8 +283,7 @@ findToken a = findOne (select ["address" =: a] "xerotokens")
 findExpiringTokens :: UTCTime -> Action IO [Document]
 findExpiringTokens now =
   rest =<<
-  find
-    (select ["refExpires" =: ["$lte" =: addUTCTime 1728000 now]] "xerotokens")
+  find (select ["refExpires" =: ["$lte" =: addUTCTime 172800 now]] "xerotokens")
 
 -- | Function to request accesstoken
 requestXeroToken :: Pipe -> T.Text -> Xero -> T.Text -> T.Text -> IO Bool