diff --git a/lib/function.tcl b/lib/function.tcl
index 6b1430d..53a969a 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -1939,7 +1939,7 @@ proc Edit::infobases {tree host values} {
 proc Edit::infobase {tree host values} {
     global default active_cluster infobase agent_user agent_pwd cluster_user cluster_pwd
     global security_level dbms scheduled_jobs_deny license_distribution date_offset
-    global sessions_deny auth
+    global sessions_deny auth infobase_user infobase_pwd ib_auth
     if {$cluster_user ne "" && $cluster_pwd ne ""} {
         set auth "--cluster-user=$cluster_user --cluster-pwd=$cluster_pwd"
     } else {
@@ -2581,3 +2581,4 @@ proc Del::inet {tree host profile_name} {
 }
 
 
+