diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss
index 2a780a9..d9a6500 100644
--- a/src/nat/ArchiveController.kiss
+++ b/src/nat/ArchiveController.kiss
@@ -143,6 +143,9 @@
 (method isSelected [:Entry e]
     !(= -1 (_selectedEntries.indexOf e)))
 
+(method getSelectedEntries []
+    (_selectedEntries.copy))
+
 (defNew [&prop :Archive archive
             &prop :ArchiveUI ui]
     [&mut :Array<Entry> _selectedEntries []