diff --git a/R/run.R b/R/run.R
index cdf6d9682bf4a58d50cb38b468eabc592db9807d..557f24c2493a15a21989bdb91d4a463569ad82f6 100644
--- a/R/run.R
+++ b/R/run.R
@@ -34,7 +34,7 @@ attch<-function(...) paste(...,sep='')
 ##' @export
 sw.do<-function(fn_data,fn_cmpd_list,mode,rdir=".") {
  
-    mkdir(rdir)
+    no_drama_mkdir(rdir)
     wdirs<-sapply(basename(fn_data),function(nm) file.path(rdir,stripext(nm)))
     sapply(wdirs,mkdir)
     stgs<-sapply(basename(wdirs),function (nm) paste(nm,"yml",sep='.'))