diff --git a/src/xschem.tcl b/src/xschem.tcl
index 0eeb5520..1b57f98e 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -9869,7 +9869,7 @@ proc set_replace_key_binding { {win_path {.drw}}} {
 
 proc source_user_tcl_files {} {
   global tcl_files
-  foreach i $tcl_files {
+  foreach i [subst $tcl_files] {
     uplevel #0 [list source $i]
   }
 }