diff --git a/R/SummarytoDetail.R b/R/SummarytoDetail.R
index 2606747d..11ac2f08 100644
--- a/R/SummarytoDetail.R
+++ b/R/SummarytoDetail.R
@@ -90,7 +90,7 @@ disaggregateSummaryModel <- function (modelname = "USEEIOv2.0", detailModel = NU
   outputDF$originalSector <- sectorToDisaggregate # Needed for the case where we want to combine multiple allocations later.
   
   #Write DFs to correct folder
-  writeAllocationsToCSV(outputDF, disaggParams, writePath)
+  writeAllocationsToCSV(outputDF, disaggParams, writePath, writeFile)
   return(outputDF)
   }