0029247: Tests, CheckCommands.tcl - Tcl exception "expected integer but got 3dviewer...
[occt.git] / src / DrawResources / CheckCommands.tcl
index b9acbb1..668e59e 100644 (file)
@@ -473,7 +473,7 @@ proc _check_args { args {options {}} {command_name ""}} {
       set get_value              [lindex ${option} 2]
       set local_value ""
       if { [_check_arg ${option_name} local_value ${get_value}] } {
-        upvar ${variable_to_save_value} ${variable_to_save_value}
+        upvar 1 ${variable_to_save_value} ${variable_to_save_value}
         set ${variable_to_save_value} ${local_value}
         set toContinue 1
       }