diff --git a/R/preset.R b/R/preset.R
index 46ae739..46f4f8f 100644
--- a/R/preset.R
+++ b/R/preset.R
@@ -54,7 +54,8 @@ preset <- function(methods = c(
 
     # Filter out genes with less than 25% existing orthologs.
     gene_ids_filtered <- genes_n_species[
-        n_species >= 0.25 * length(species_ids),
+        gene %chin% gene_ids &
+            n_species >= 0.25 * length(species_ids),
         gene
     ]