diff --git a/R/run.R b/R/run.R
index 875fcad111d6565c38b472a3e45c67654ec9b747..0479082625327ff14ea6acab106a65f05b2f347e 100644
--- a/R/run.R
+++ b/R/run.R
@@ -41,8 +41,9 @@ 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)