hostside: lib.tcl: fix quoting bugs in addexpr and setexpr

diff --git a/hostside/lib.tcl b/hostside/lib.tcl
index a1ec56291447690ceb70984bba1d6b72f26bd46c..8978343c1e4e9ca314fa217c6d7c17452b1cb576 100644 (file)
--- a/hostside/lib.tcl
+++ b/hostside/lib.tcl
@@ -75,7 +75,7 @@ proc get-unique {prefix} {
 }
 
 proc addexpr {varname expr} {
-    set add [uplevel 1 expr $expr]
+    set add [uplevel 1 [list expr $expr]]
     upvar 1 $varname var
     if {![info exists var]} { set var 0 }
     set var [expr {$var + $add}]
@@ -83,7 +83,7 @@ proc addexpr {varname expr} {
 
 proc setexpr {varname expr} {
     upvar 1 $varname var
-    set var [uplevel 1 expr $expr]
+    set var [uplevel 1 [list expr $expr]]
 }
 
 setting port 2883 {\d+}