diff --git a/lib/function.tcl b/lib/function.tcl
index f6830e1..9a96fe3 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -73,7 +73,7 @@ proc RunCommand {par} {
     puts "$rac_cmd $par"
     set work_list_row_count 0
     
-    set pipe [open "|$rac_cmd $par" "r"]
+    set pipe [open "|\"$rac_cmd\" $par" "r"]
     try {
         set lst ""
         set l ""
@@ -1911,7 +1911,6 @@ proc Edit::profiles {tree host values} {
 proc Edit::directory {tree host values} {
     return
 }
-
 proc Edit::addin {tree host values} {
     return
 }
@@ -2226,7 +2225,6 @@ proc Del::acl {host type name profile_name} {
     }
 }
 proc Del::directory {tree host profile_name} {
-    puts "$tree $host [GetWorkTreeItems "alias"] $profile_name"
     Del::acl $host directory [GetWorkTreeItems "alias"] $profile_name
 }
 proc Del::com {tree host profile_name} {