diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
index 8020450a..8a4e4e05 100644
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/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))) [])