diff --git a/rac_gui.tcl b/rac_gui.tcl
index aa5dec9..c65e7fc 100755
--- a/rac_gui.tcl
+++ b/rac_gui.tcl
@@ -16,8 +16,6 @@ exec wish "$0" -- "$@"
 ######################################################
 
 package require msgcat
-package require json
-package require json::write
 
 # Устанавливаем текущий каталог
 set dir(root) [pwd]
@@ -101,6 +99,3 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] {
         dict set servers_list $host clusters {}
     }    
 }
-
-CreateInfoBasesJSONfile $servers_list
-