diff --git a/R/refactor_wrapper.R b/R/refactor_wrapper.R
index 1ca15db5..c53f9a81 100644
--- a/R/refactor_wrapper.R
+++ b/R/refactor_wrapper.R
@@ -74,8 +74,7 @@ refactor  = function (gpkg = NULL,
     
     outlets <- pois %>%
       inner_join(select(st_drop_geometry(network_list$flowpaths), 
-                        totdasqkm, match_id, 
-                        dnhydroseq), 
+                        all_of(totdasqkm, match_id, dnhydroseq)), 
                  by = c("hf_id" = match_id))
     
     # Need to avoid modification to flowlines immediately downstream of POIs
diff --git a/R/split_catchment.R b/R/split_catchment.R
index 17b980fe..496a457b 100644
--- a/R/split_catchment.R
+++ b/R/split_catchment.R
@@ -206,8 +206,6 @@ split_catchment_divide <- function(catchment, fline, fdr, fac, lr = FALSE,
     group_by(L1) %>%
     filter(dplyr::row_number() == n()) %>%
     ungroup() 
-  
-  fline = st_set_crs(fline, 5070)
 
   suppressWarnings(fdr_matrix <- prep_cat_fdr_fac(catchment, fdr, fac))