diff --git a/lib/function.tcl b/lib/function.tcl
index 5bf4247..fd1c7c7 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -919,6 +919,7 @@ proc Add::cluster {tree host values} {
         Run::server $tree $host ""
         destroy .add
     }
+    return $frm
 }
 
 proc Add::rule {tree host values} {
@@ -1045,7 +1046,9 @@ proc Edit::cluster {tree host values} {
     global max_memory_size max_memory_time_limit errors_count_threshold security_level
     global load_balancing_mode kill_problem_processes active_cluster
     
-    Add::cluster $tree $host $values
+    set frm [Add::cluster $tree $host $values]
+    $frm configure -text "Редактирование кластера"
+    
     set active_cluster $values
     set lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"]
     foreach i [lindex $lst 0] {
diff --git a/lib/gui.tcl b/lib/gui.tcl
index 6a19fbb..9380aa4 100644
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -17,7 +17,7 @@ if {[info exists topLevelGeometry]} {
 wm title . "1C Rac GUI"
 wm iconname . "1C Rac Gui"
 
-#wm iconphoto . tcllogo
+wm iconphoto . tcl
 wm protocol . WM_DELETE_WINDOW Quit
 wm overrideredirect . 0
 wm positionfrom . user