From 4e650811db8cc25aefeb59b3a998c0e9475fc68a Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 27 Nov 2023 12:42:49 +0100
Subject: [PATCH] fix proc ev and proc evo not evaluating correctly braced
 {...} expressions

---
 src/xschem.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 6348dc24..cdc80524 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -636,7 +636,8 @@ proc to_eng {args} {
 
 ## evaluate expression. if expression has errors or does not evaluate return expression as is
 proc ev {args} {
-  if {![catch {expr $args} res]} {
+  set i [join $args]
+  if {![catch {expr $i} res]} {
     return [format %.4g $res]
   } else {
     return $args
@@ -645,7 +646,8 @@ proc ev {args} {
 
 ## evaluate expression. if expression has errors or does not evaluate return 0
 proc ev0 {args} {
-  if {![catch {expr $args} res]} {
+  set i [join $args]
+  if {![catch {expr $i} res]} {
     return [format %.4g $res]
   } else {
     return 0