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"} {