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
+    }
   }
 }