From aeb6b12d73325087b26a790545adb4876e335149 Mon Sep 17 00:00:00 2001
From: schippes <schippes@mazinga.lan>
Date: Thu, 13 Aug 2020 02:46:49 +0200
Subject: [PATCH] fix rel_sym_path proc

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 4439c804..a15123e3 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2420,6 +2420,7 @@ proc rel_sym_path {symbol} {
     set pl [string length $path_elem]
     if { [string equal -length $pl $path_elem $symbol] } {
       set name [string range $symbol [expr $pl+1] end]
+      break
     }
   }
   if { ![string compare $name {} ] } {
@@ -2454,7 +2455,6 @@ proc abs_sym_path {fname {ext {} } } {
   } elseif {[regexp {^\./} $fname ] } {
     regsub {^\./} $fname {} fname
   }
-  set lib_cell [get_cell $fname]
   set name {}
   if { ![regexp {^/} $fname] } {
     foreach path_elem $pathlist {