From 9b5bd75ec8c32c2a66c21b5eca295a915ac5b0c4 Mon Sep 17 00:00:00 2001
From: Stefan Schippers <schippes@mazinga.lan>
Date: Tue, 10 Nov 2020 17:48:26 +0100
Subject: [PATCH] allow tcl commands ( [..cmds..] ) in Simulation->configure
 simulators and tools (useful to retrieve needed information about current dir
 etc.).

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 46cbf028..3a9feb1b 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -705,7 +705,7 @@ proc simulate {{callback {}}} {
     } else {
       set fg {execute}
     }
-    set cmd [subst -nocommands $sim($tool,$def,cmd)]
+    set cmd [subst $sim($tool,$def,cmd)]
     if {$::OS == "Windows"} {
       eval exec $cmd # $cmd cannot be surrounded by {} as exec will change forward slash to backward slash
     } else {
@@ -816,7 +816,7 @@ proc waves {} {
     } else {
       set fg {execute}
     }
-    set cmd [subst -nocommands $sim($tool,$def,cmd)]
+    set cmd [subst $sim($tool,$def,cmd)]
     $fg $st sh -c "cd $netlist_dir; $cmd"
   }
 }