diff --git a/src/Owner.hs b/src/Owner.hs
index 4deb848..2e85222 100644
--- a/src/Owner.hs
+++ b/src/Owner.hs
@@ -297,4 +297,7 @@ findOwnerById i =
 findExpiringOwners :: UTCTime -> Action IO [Document]
 findExpiringOwners now =
   rest =<<
-  find (select ["expiration" =: ["$lte" =: addUTCTime 172800 now]] "owners")
+  find
+    (select
+       ["paid" =: True, "expiration" =: ["$lte" =: addUTCTime 172800 now]]
+       "owners")