diff --git a/Command/MetaData.hs b/Command/MetaData.hs
index db11797013..1209a58360 100644
--- a/Command/MetaData.hs
+++ b/Command/MetaData.hs
@@ -46,7 +46,7 @@ optParser desc = MetaDataOptions
 			( long "tag" <> short 't' <> metavar "TAG"
 			<> help "set a tag"
 			))
-		<|> (AddMeta tagMetaField . mkMetaValue (CurrentlySet False) <$> strOption
+		<|> (DelMeta tagMetaField . toMetaValue <$> strOption
 			( long "untag" <> short 'u' <> metavar "TAG"
 			<> help "remove a tag"
 			))