diff --git a/workspace/02_NHD_navigate.Rmd b/workspace/02_NHD_navigate.Rmd
index 35f2283c2b0d9317cf840468c2152d5e433feb4c..167a1073e64cc708c590638bf13357c39ae2d377 100644
--- a/workspace/02_NHD_navigate.Rmd
+++ b/workspace/02_NHD_navigate.Rmd
@@ -346,8 +346,6 @@ if(!"Type_WBIn" %in% names(tmp_POIs)) {
 
   wb_layers <- wbin_POIcreation(nhd, ref_WB, data_paths, crs, split_layer, tmp_POIs)
   wb_in_col <- wb_inlet_collapse(wb_layers$POIs, nhd, events)
-  #ho <- filter(wb_layers$POIs, !COMID %in% wb_in_col$POIs$COMID)
-  #write_sf(wb_in_col$events_ret, temp_gpkg, split_layer)
   tmp_POIs <- wb_in_col$POIs
   
   if(!all(is.na(wb_layers$events))) {
diff --git a/workspace/R/NHD_navigate.R b/workspace/R/NHD_navigate.R
index 529435049cc61b3a53270c9935ae4ed9ca7bb56b..bb1f5d4c41f2434e1c0966a4d20f9a6c08a180d1 100644
--- a/workspace/R/NHD_navigate.R
+++ b/workspace/R/NHD_navigate.R
@@ -1159,7 +1159,7 @@ wbin_POIcreation <- function(nhd, WBs_VPU, data_paths, crs,
           mutate(dsCOMID = COMID, COMID = usCOMID)
         
         if(nrow(wb_inlet_POIs) > 0) {
-          wbin_POIs <- bind_rows(wbin_POIs, POI_creation2(select(st_drop_geometry(wb_inlet_POIs), dsCOMID, Type_WBIn = WBAREACOMI), 
+          wbin_POIs <- bind_rows(wbin_POIs, POI_creation(select(st_drop_geometry(wb_inlet_POIs), dsCOMID, Type_WBIn = WBAREACOMI), 
                                               nhd, "WBIn"))
           
           wb_inlet_events <- filter(wb_inlet_events, !COMID %in% wb_inlet_POIs$dsCOMID)