From f3457e0f199a5855ba7e30f4619fb9196958ef60 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 3 Nov 2025 12:21:48 +0100
Subject: [PATCH] cleanup double (or more) slashes in pathlist when parsing
 XSCHEM_LIBRARY_PATH

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index a672ed90..b003cd60 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -10552,6 +10552,7 @@ proc cleanup_paths {paths} {
   foreach i $paths {
     regsub {^~$} $i ${env(HOME)} i
     regsub {^~/} $i ${env(HOME)}/ i
+    regsub -all {/+} $i {/} i
     if {![string compare $i .]} {
       # ...
     } elseif { [regexp {^#} $i] } {