From 2f41c6a5029d7cbbe3bbcad270b09e7e5a06f8ee Mon Sep 17 00:00:00 2001
From: Steve Shaw <smshaw@users.sourceforge.net>
Date: Fri, 2 Dec 2022 15:13:10 +0000
Subject: [PATCH] Update to CLI myerrorproc and opmode

---
 src/generic/gencli.tcl   | 2 +-
 src/generic/genmodes.tcl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/generic/gencli.tcl b/src/generic/gencli.tcl
index 04067bab..87144143 100755
--- a/src/generic/gencli.tcl
+++ b/src/generic/gencli.tcl
@@ -199,7 +199,7 @@ proc myerrorproc { id info } {
         } else {
             if { [ info exists threadsbytid($id) ] } {
                 set vuser [expr $threadsbytid($id) + 1]
-                set info "Error in Virtual User [$vuser]: $info"
+                set info "Error in Virtual User $vuser: $info"
                 putscli $info
                 hdbjobs eval {INSERT INTO JOBOUTPUT VALUES($jobid, $vuser, $info)}
             }  else {
diff --git a/src/generic/genmodes.tcl b/src/generic/genmodes.tcl
index 68940d84..09166c09 100755
--- a/src/generic/genmodes.tcl
+++ b/src/generic/genmodes.tcl
@@ -467,7 +467,7 @@ proc distribute { } {
 }
 
 proc remote_command { command } {
-    upvar 1 opmode opmode
+    upvar #0 opmode opmode
     global masterlist
     if { $opmode eq "Primary" } {
         foreach f $masterlist {