diff --git a/RBBGCMuso/R/calibrateMuso.R b/RBBGCMuso/R/calibrateMuso.R
index 3489e7b..e02dd54 100644
--- a/RBBGCMuso/R/calibrateMuso.R
+++ b/RBBGCMuso/R/calibrateMuso.R
@@ -17,9 +17,7 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
                      maxLikelihoodEpc=TRUE,
                      pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){
     
-    # Explicitly specify the environment in the multisession call
-    plan <- future::multisession(workers = numCores, envir = environment())
-    future::plan(plan)
+    future::plan(future::multisession, workers = numCores)
     file.remove(list.files(path = settings$inputLoc, pattern="progress.txt", recursive = TRUE, full.names=TRUE))
     file.remove(list.files(path = settings$inputLoc, pattern="preservedCalib.csv", recursive = TRUE, full.names=TRUE))
     unlink(file.path(settings$inputLoc,"thread"),recursive=TRUE)