diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss
index 3a79fc6..9110bf0 100644
--- a/src/nat/ArchiveController.kiss
+++ b/src/nat/ArchiveController.kiss
@@ -146,6 +146,10 @@
     (defcommand printSelectedEntries [entries (SelectedEntries null null)]
         (doFor e entries (ui.displayMessage (archive.fullString e))) [])
         
-    (defcommand createEntry [name (Text null null)]
+    (defcommand createEntry [name (Text null)]
         [(archive.createEntry ->e
-            (addComponent archive e Name name))]))
\ No newline at end of file
+            (addComponent archive e Name name))])
+    
+    (defcommand createEntries [names (VarText null)]
+        (flatten (for name names
+            (createEntry name)))))
\ No newline at end of file