diff --git a/src/Db/Command.hs b/src/Db/Command.hs
index 379f4c0..49a03e9 100644
--- a/src/Db/Command.hs
+++ b/src/Db/Command.hs
@@ -226,7 +226,7 @@ instance Insertable TagEntry TagPost where
 instance Upsertable TagEntry where
   upsertInfo =
     Upsert
-      { index = teID
+      { index = teName
       , predicate = Nothing
       , set = \new old -> new {teID = teID old}
       , updateWhere = \_ _ -> lit True