From e8e9afb488a6f15ddb05094510db3d74e205c68d Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Tue, 18 Oct 2022 00:48:29 +0200
Subject: [PATCH] match_file. better file list concatenating

---
 src/xschem.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index c958d05a..c9c4ab83 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4343,7 +4343,7 @@ proc sub_match_file { f {paths {}} } {
           set match_file_dir_arr($jj) 1
           # puts "********** directory $jj"
           set sub_res [sub_match_file $f $j] ;# recursive call
-          if {$sub_res != {} } {eval lappend res $sub_res}
+          if {$sub_res != {} } {set res [concat $res $sub_res]}
         }
       } else {
         set fname [file tail $j]