diff --git a/projects/nat-archive-tool/src/nat/SelectionCommands.kiss b/projects/nat-archive-tool/src/nat/SelectionCommands.kiss
index bd7b4938..fee44794 100644
--- a/projects/nat-archive-tool/src/nat/SelectionCommands.kiss
+++ b/projects/nat-archive-tool/src/nat/SelectionCommands.kiss
@@ -58,6 +58,9 @@
 (defSelectCommand SelectAllEntries []
     (for =>id e archive.entries e))
 
+(defSelectCommand SelectById [id (Text null)]
+    (filter [(dictGet archive.entries id)]))
+
 (defSelectCommand SelectLastChangeSet []
     lastChangeSet)