diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index b385e4462..2f16738ac 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -746,7 +746,7 @@ dosiunitx = do
 
 siUnit :: PandocMonad m => LP m Inlines
 siUnit = do
-  Tok _ (CtrlSeq name) cmd <- anyControlSeq
+  Tok _ (CtrlSeq name) _ <- anyControlSeq
   if name == "square"
      then do
        unit <- grouped (mconcat <$> many1 siUnit) <|> siUnit <|> tok