diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
index 7bb8f051..0f56b4d9 100644
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -252,9 +252,10 @@
         (flatten (for name names
             (CreateTaggedEntry tags name))))
 
-    (defCommand CreateCircleEntry [radius (Number 0 null null)]
+    (defCommand CreateCircleEntry [tags (VarText null) radius (Number 0 null null)]
         [(archive.createEntry ->e
-            (addComponent archive e Circle (objectWith radius)))])
+            {(addTags archive e tags)
+            (addComponent archive e Circle (objectWith radius))})])
 
     // TODO use Tag and VarTag arg types for AddTags and RemoveTags
     (defCommand AddTags [entries (SelectedEntries 1 null)