diff --git a/inst/examples/workflow_demos/flow_free_expansion.R b/inst/examples/workflow_demos/flow_free_expansion.R
index 5302406b2caaab0bf8b0510a3915183a525a8ecc..4ab17e734a159ee7142002a376175941a29b3069 100644
--- a/inst/examples/workflow_demos/flow_free_expansion.R
+++ b/inst/examples/workflow_demos/flow_free_expansion.R
@@ -15,9 +15,9 @@ library(r2ogs6)
 
 
 # Then we can create a simulation object.
-
+tmp = tempdir()
 ogs6_obj <- OGS6$new(sim_name = "flow_free_expansion",
-                     sim_path = "D:/OGS_sims/")
+                     sim_path = paste0(tmp, "flow_free_expansion"))
 
 
 ogs6_obj$add_gml(