diff --git a/r_app/80_calculate_kpis.R b/r_app/80_calculate_kpis.R
index a35c808..7619347 100644
--- a/r_app/80_calculate_kpis.R
+++ b/r_app/80_calculate_kpis.R
@@ -397,7 +397,7 @@ main <- function() {
     message(strrep("=", 70))
     
    # Define variables needed for workflow functions
-   reports_dir <- setup$kpi_reports_dir
+   reports_dir <- file.path(setup$reports_dir, "kpis")
    data_dir <- setup$data_dir
    
   
diff --git a/r_app/80_utils_cane_supply.R b/r_app/80_utils_cane_supply.R
index b8ef588..bceaa5d 100644
--- a/r_app/80_utils_cane_supply.R
+++ b/r_app/80_utils_cane_supply.R
@@ -536,7 +536,7 @@ calculate_field_analysis_cane_supply <- function(setup,
   message("CANE_SUPPLY WORKFLOW: PER-FIELD ANALYSIS (Script 91 compatible)")
   message(strrep("=", 70))
   
-  reports_dir <- setup$kpi_reports_dir
+  reports_dir <- file.path(setup$reports_dir, "kpis")
   
   # ========== PHASE 1: WEEKLY ANALYSIS SETUP ==========
   message("\n", strrep("-", 70))