From b4283563d01d37410288576b45c77bad01a752cd Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 29 May 2025 21:09:43 +0200
Subject: [PATCH] fix from_eng proc (meg was not handled correctly)

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 099a2d3a..4697cf75 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -614,7 +614,7 @@ proc from_eng {i} {
   set str {}
   scan $i "%g%s" n str
   set str [string tolower $str]
-  if { [regexp {^meg} $str] } { set str {meg} } else {
+  if { [regexp {^meg} $str] } { set suffix {meg} } else {
     set suffix [string index $str 0]
   }
   set mult [switch $suffix {