diff --git a/NAMESPACE b/NAMESPACE
index c6285e81..493c2ad2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -92,6 +92,7 @@ S3method(grd_tile,wk_grd_rct)
 S3method(grd_tile,wk_grd_xy)
 S3method(is.na,wk_rcrd)
 S3method(is.na,wk_wkb)
+S3method(is.na,wk_xy)
 S3method(length,wk_rcrd)
 S3method(names,wk_rcrd)
 S3method(plot,wk_crc)
diff --git a/R/xyzm.R b/R/xyzm.R
index cd522626..aa3f7e5e 100644
--- a/R/xyzm.R
+++ b/R/xyzm.R
@@ -314,7 +314,7 @@ format.wk_xyzm <- function(x, ...) {
 }
 
 #' @export
-is.na.wk_rcrd <- function(x, ...) {
+is.na.wk_xy <- function(x, ...) {
   is_na <- Reduce("&", lapply(unclass(x), is.na))
   is_nan <- Reduce("&", lapply(unclass(x), is.nan))
   is_na & !is_nan