diff --git a/utils.R b/utils.R
index 83e24ae..b56a69f 100644
--- a/utils.R
+++ b/utils.R
@@ -65,7 +65,7 @@ collapse_otu_at_taxo <- function(phylo_data, NArm = TRUE, renameOTUs = TRUE) {
     tax_ranks <- colnames(tax_table(phylo_data))
     tax_df <- tax_table(phylo_data)
     otu_tables_by_rank <- lapply(tax_ranks, function(rank) {
-        ps_glom <- tax_glom(the_data, taxrank = rank, NArm = NArm)
+        ps_glom <- tax_glom(phylo_data, taxrank = rank, NArm = NArm)
         otu <- as.data.frame(otu_table(ps_glom))
 
         # Ensure taxa are rows