diff --git a/INSTALL b/INSTALL
deleted file mode 100644
index 2c2c5dc..0000000
--- a/INSTALL
+++ /dev/null
@@ -1,9 +0,0 @@
-######################################################
-#	Tcl/Tk Project manager 2.0
-#	Distributed under GNU Public License
-# Author: Sergey Kalinin svk@nuk-svl.ru
-# Home page: https://nuk-svk.ru
-######################################################
-
-
-
diff --git a/lib/files.tcl b/lib/files.tcl
index a1c106c..430e1e4 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -201,11 +201,10 @@ namespace eval FileOper {
         if {[lsearch -exact [.frmWork.panelNB panes] .frmWork.nbEditor2] != -1} {
             .frmWork.panelNB forget .frmWork.nbEditor2
         }
-        foreach nbItem [array names modified] {
-            if {[info exists modified($nbItem)] == 1 && $modified($nbItem) eq "true"} {
-                catch {$nbEditor select $nbItem}
-                # puts "close tab $nbItem"
-                if {[Close] eq "cancel"} {return "cancel"}
+        foreach nbItem [$nbEditor tabs] {
+            catch {$nbEditor select $nbItem}
+            if {[Close] eq "cancel"} {
+                return "cancel"
             }
         }
     }