diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
index e8fe391f..d3ac5b9f 100644
--- a/R/finbif_occurrence_load.R
+++ b/R/finbif_occurrence_load.R
@@ -1517,7 +1517,7 @@ nlines <- function(fb_occurrence_obj) {
 
   n <- -1L
 
-  cond <- TRUE
+  cond <- !inherits(con, "textConnection")
 
   while (cond) {