diff --git a/C4/Members.pm b/C4/Members.pm
index 05056345e3..72f9cbda81 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -408,6 +408,7 @@ sub GetBorrowersToExpunge {
         $query .= q| LEFT JOIN patron_list_patrons USING (borrowernumber)|;
     }
     $query .= q| WHERE  category_type <> 'S'
+        AND ( borrowers.flags IS NULL OR borrowers.flags = 0 )
         AND tmp.guarantor_id IS NULL
     |;
     my @query_params;