From 8b55066978a0111c9ae6feeb9444087fe29fad79 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 16 Feb 2024 23:24:54 +0100
Subject: [PATCH] proc tclpropeval2: $sch_basename: remove path elements (use
 [file tail])

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 431d22b6..39c55f03 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4501,7 +4501,7 @@ proc tclpropeval2 {s} {
   # puts "tclpropeval2: s=|$s|"
   if {$debug_var <=-1} {puts "tclpropeval2: $s"}
   set path [string range [xschem get sch_path] 1 end]
-  set sch_basename [file rootname [xschem get current_name]]
+  set sch_basename [file tail [file rootname [xschem get current_name]]]
   # skip hierarchy components above the level where raw file has been loaded. 
   # node path names to look up in raw file begin from there.
   set skip 0