diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index 568aec5..3a839df 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -472,7 +472,7 @@
 harvest.data <- function(write.to.file=FALSE, folder="results_backup") {
   data = data.frame()
   for(i in 1:num.cores) {
-    d <- read.table(paste(folder, "resultdat", i, ".txt", sep=""))
+    d <- read.table(paste(folder, "/", "resultdat", i, ".txt", sep=""))
     data <- rbind(data, d)
   }
   if(write.to.file) {