diff --git a/R/as_sf.R b/R/as_sf.R
index 89ee0db..d63f3ca 100644
--- a/R/as_sf.R
+++ b/R/as_sf.R
@@ -244,7 +244,7 @@ as_sf_class <- function(x,
     params <- list2(...)
 
     if (!is.null(params[["crs"]])) {
-      x <- as_crs(x, crs = params[["crs"]])
+      x <- st_transform_ext(x, crs = params[["crs"]])
     }
 
     return(x)