diff --git a/lib/function.tcl b/lib/function.tcl
index 2f66006..2570076 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -48,14 +48,14 @@ proc SetGlobalVarFromTreeItems {tree id} {
         }
         cluster {
             set active_cluster $values
-            #puts $values
             #dict set servers_list servers $host clusters "$values {}"
             set cluster_user [GetClusterAdmin $host $active_cluster]
             set cluster_pwd [GetClusterPassword $host $active_cluster]
+            #dict set servers_list servers $host clusters "$values {}" "cluster_user $cluster_user cluster_pwd $cluster_pwd"
         }
         infobase {
             set infobase $values
-            #puts [dict set servers_list servers $host clusters $active_cluster infobases $values]
+            #dict set servers_list servers $host clusters $active_cluster infobases $values
         }
         profile {
             set profile_name $values
@@ -497,7 +497,7 @@ proc Run::infobases {tree host values} {
             $tree insert "infobases::$values" end -id "infobase::$id" -text "[lindex $base($x) 1]" -values "$id"
             if {![dict exists $servers_list servers $host clusters $active_cluster infobases $id]} {
                 dict set servers_list servers $host clusters $active_cluster \
-                infobases $id "name \"[lindex $base($x) 1]\""
+                infobases $id "infobase_name \"[lindex $base($x) 1]\""
             }
         }
         InsertBaseItems $tree $id
@@ -2580,7 +2580,3 @@ proc Del::app {tree host profile_name} {
 proc Del::inet {tree host profile_name} {
     Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
 }
-
-
-
-