diff --git a/R/run.R b/R/run.R
index 0479082625327ff14ea6acab106a65f05b2f347e..875fcad111d6565c38b472a3e45c67654ec9b747 100644
--- a/R/run.R
+++ b/R/run.R
@@ -41,9 +41,8 @@ sw.do<-function(fn_data,fn_cmpd_list,mode,rdir=".",combine=F,proc=F) {
     wdirs<-sapply(basename(fn_data),function(nm) file.path(rdir,stripext(nm)))
     sapply(wdirs,no_drama_mkdir)
     stgs<-sapply(basename(wdirs),function (nm) paste(nm,"yml",sep='.'))
-
+    cl<-parallel::makeCluster(proc)
     if (proc) {
-        cl<-parallel::makeCluster(proc)
         p.sw(fn_data,stgs,wdirs,fn_cmpd_list,mode,combine=combine,cl=cl)
     } else {
         v(fn_data,stgs,wdirs,fn_cmpd_list,mode,combine=combine)