From e537320e783e2fa539564aa7cae077343d0d4197 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 28 Feb 2026 02:25:56 +0100
Subject: [PATCH] proc xschem_quit: force close file_chooser if left open to
 prevent unfreed memory resources

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 06ecde98..2fd36a40 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -9262,6 +9262,7 @@ proc quit_xschem { {force {}}} {
 
   xschem new_schematic destroy_all $force
   xschem new_schematic switch .drw
+  if {[winfo exists .ins]} { .ins.bottom.dismiss invoke }
   set remaining [xschem exit closewindow $force]
   return $remaining
 }