From e7b4dcfaae27c53e603326d39922f5a80e4deeb8 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 24 Mar 2023 00:49:44 +0100
Subject: [PATCH] better tilde substitution in some tcl procedures

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 8e71b908..fd4e24a6 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -6193,7 +6193,8 @@ proc set_paths {} {
       set pathlist_orig [split $XSCHEM_LIBRARY_PATH :]
     }
     foreach i $pathlist_orig {
-      regsub {^~} $i $env(HOME) i
+      regsub {^~$} $i ${env(HOME)} i
+      regsub {^~/} $i ${env(HOME)}/ i
       if { ![string compare $i .] } {
         lappend pathlist $i
       } elseif { [ regexp {\.\.\/} $i] } {