diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
index 83c42910..b5977f84 100644
--- a/R/finbif_occurrence_load.R
+++ b/R/finbif_occurrence_load.R
@@ -1029,7 +1029,7 @@ dt_read <- function(fb_occurrence_obj) {
 
   args[["header"]] <- FALSE
 
-  df <- structure(vector("list", length(args_select)), class = "data.frame")
+  df <- structure(vector("list", length(args[["select"]])), class = "data.frame")
 
   if (file.exists(args[["input"]])) {