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