diff --git a/scripts/utils/utils.tcl b/scripts/utils/utils.tcl
index e2a0087a9c86acd98ea07e3427fae6af6171a7bc..a583a2742f67b25b4c10c5f69fa2cde73bdcd6ca 100755
--- a/scripts/utils/utils.tcl
+++ b/scripts/utils/utils.tcl
@@ -690,6 +690,7 @@ proc run_tcl_script {args} {
 
         catch_exec {*}$args
         if { $exec_result(exit_code) } {
+            set exit_code $exec_result(exit_code)
             set print_error_msg "during executing $tool script $script"
             set log_relpath [relpath $::env(PWD) $arg_values(-indexed_log)]