From bc706ab4108a36775f1b19dc5b0f7bd07dc42fd1 Mon Sep 17 00:00:00 2001
From: svk <svk@nuk-svk.ru>
Date: Thu, 22 Jan 2026 17:48:59 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BE=D0=BA?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/config.tcl    | 4 +++-
 lib/procedure.tcl | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/config.tcl b/lib/config.tcl
index c4d0760..ba18528 100644
--- a/lib/config.tcl
+++ b/lib/config.tcl
@@ -172,8 +172,10 @@ proc Config::CheckVariables {} {
         if {[regexp {^([^=]+)=(.*)$} $item -> var value]} {
             if ![info exists ::cfgVariables($var)] {
                 DebugPuts "Error in Config::CheckVariables: variable ::cfgVariables($var) not found"
-                Config::AddVariable "$var" "$value" "$section"
+                # set ::cfgVariables($var) $value
                 DebugPuts "Config::CheckVariables: The variable cfgVariables($var) setting to default value \"$value\""
+                Config::AddVariable "$var" "$value" "$section"
+
             }
         }
     }
diff --git a/lib/procedure.tcl b/lib/procedure.tcl
index 2eabef1..d34f814 100644
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -1159,10 +1159,10 @@ proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
 proc DebugPuts {msg} {
     global cfgVariables
     if ![info exists cfgVariables(debug)] {
-        set cfgVariables(debug) "true"
+        return 0
     }
     if ![info exists cfgVariables(debugOut)] {
-        set cfgVariables(debugOut) "stdout"
+        return 0
     }
     if {$cfgVariables(debug) eq "true"} {
         if {$cfgVariables(debugOut) eq "stdout"} {