diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
index c3e23f45..776523e7 100644
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -211,6 +211,10 @@
 
     (load "SelectionCommands.kiss")
 
+    (defCommand Rename [e SelectedEntry newName (Text null)]
+        (withWritableComponents archive e [name Name]
+            (set name newName)))
+
     (defCommand PrintSelectedEntries [entries (SelectedEntries null null)]
         (doFor e entries (ui.displayMessage (archive.fullString e))) [])