diff --git a/tests/testthat/test-fNobs-fNdistinct.R b/tests/testthat/test-fNobs-fNdistinct.R
index d9b5069c..1ce09326 100644
--- a/tests/testthat/test-fNobs-fNdistinct.R
+++ b/tests/testthat/test-fNobs-fNdistinct.R
@@ -13,7 +13,7 @@ dataNA <- na_insert(data)
 m <- as.matrix(data)
 mNA <- as.matrix(dataNA)
 data$LC <- as.list(data$PCGDP)
-dataNA$LC <- lapply(na_insert(data["LC"])[[1]], function(x) if(is.na(x)) NULL else x)
+dataNA$LC <- lapply(na_insert(data["LC"][[1]]), function(x) if(is.na(x)) NULL else x)
 
 bsum <- base::sum
 Nobs <- function(x) if(is.list(x)) bsum(lengths(x) > 0L) else bsum(!is.na(x))
diff --git a/tests/testthat/test-ffirst-flast.R b/tests/testthat/test-ffirst-flast.R
index 939f2536..fefa471c 100644
--- a/tests/testthat/test-ffirst-flast.R
+++ b/tests/testthat/test-ffirst-flast.R
@@ -21,7 +21,7 @@ dataNA <- na_insert(data)
 m <- as.matrix(data)
 mNA <- as.matrix(dataNA)
 data$LC <- as.list(data$PCGDP)
-dataNA$LC <- lapply(na_insert(data["LC"])[[1]], function(x) if(is.na(x)) NULL else x)
+dataNA$LC <- lapply(na_insert(data["LC"][[1]]), function(x) if(is.na(x)) NULL else x)
 
 basefirst <- function(x, na.rm = FALSE) {
   if(is.list(x)) return(if(na.rm) x[which(lengths(x) > 0L)[1L]] else x[1L])