diff --git a/server/opt_home.R b/server/opt_home.R
index 55820b22a6a8e14639bda331c154ffb2278ee247..c9861044a0768f1f015eb18e382882af01cb9a5f 100644
--- a/server/opt_home.R
+++ b/server/opt_home.R
@@ -373,8 +373,8 @@ createBiocontainer <- function(result, haveR) {
     
     result <- paste0(result, "\n")
   
-    result <- paste(result, '\tif[!-d "/opt/biotools"];then mkdir /opt/biotools; fi', sep = "\n")
-    result <- paste(result, '\tif[!-d "/opt/biotools/bin"];then mkdir /opt/biotools; fi', sep = "\n")
+    result <- paste(result, '\tif [ ! -d "/opt/biotools" ];then mkdir /opt/biotools; fi', sep = "\n")
+    result <- paste(result, '\tif [ ! -d "/opt/biotools/bin" ];then mkdir /opt/biotools/bin; fi', sep = "\n")
     result <- paste(result, "\tchmod 777 -R /opt/biotools/", sep = "\n")
     result <- paste(result, "\texport PATH=/opt/biotools/bin:$PATH", sep = "\n")