Fix rename crash in NAT

2022-07-05 01:29:43 +00:00
parent 214c9393b3
commit 73096cf7b7
1 changed files with 2 additions and 1 deletions
--- a/src/nat/ArchiveController.kiss
+++ b/src/nat/ArchiveController.kiss
@@ -218,7 +218,8 @@

    (defCommand Rename [e SelectedEntry newName (Text null)]
        (withWritableComponents archive e [name Name]
-            (set name newName)))
+            (set name newName))
+        [e])

    (defCommand PrintSelectedEntries [entries (SelectedEntries null null)]
        (doFor e entries (ui.displayMessage (archive.fullString e))) [])