From 6a522a853bf316803d80aa424ca95605555f5817 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 23 Sep 2025 23:36:44 +0200
Subject: [PATCH] better source_user_tcl_files (do the [subst $tcl_files] at
 global scope so variables like pathlist can be used)

---
 src/xschem.tcl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 1b57f98e..d5b2aaf0 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -9868,9 +9868,11 @@ proc set_replace_key_binding { {win_path {.drw}}} {
 }
 
 proc source_user_tcl_files {} {
-  global tcl_files
-  foreach i [subst $tcl_files] {
-    uplevel #0 [list source $i]
+  set subst_tcl_files [uplevel #0 {subst $tcl_files}]
+  foreach i $subst_tcl_files {
+    if {[catch "uplevel #0 {[list source $i]}" retval]} {
+      puts $retval
+    }
   }
 }