diff --git a/RBBGCMuso/R/calibrateMuso.R b/RBBGCMuso/R/calibrateMuso.R
index 3e830bb..5d48e99 100644
--- a/RBBGCMuso/R/calibrateMuso.R
+++ b/RBBGCMuso/R/calibrateMuso.R
@@ -16,8 +16,8 @@ calibrateMuso <- function(measuredData, parameters =read.csv("parameters.csv", s
                      thread_prefix="thread", numCores, pb = txtProgressBar(min=0, max=iterations, style=3),
                      maxLikelihoodEpc=TRUE,
                      pbUpdate = setTxtProgressBar, outputLoc="./", method="GLUE",lg = FALSE, w=NULL, ...){
-    print(numCores)
-    future::plan(future::multisession(workers = numCores))
+    
+    future::plan(future::multisession(workers = numCores, envir = environment()))
     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)