diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index fe677e470..c08cb929e 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -924,6 +924,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
   , ("it", extractSpaces emph <$> inlines)
   , ("sl", extractSpaces emph <$> inlines)
   , ("bf", extractSpaces strong <$> inlines)
+  , ("tt", code . stringify . toList <$> inlines)
   , ("rm", inlines)
   , ("itshape", extractSpaces emph <$> inlines)
   , ("slshape", extractSpaces emph <$> inlines)
diff --git a/test/command/4669.md b/test/command/4669.md
index b9db45b17..0bc989516 100644
--- a/test/command/4669.md
+++ b/test/command/4669.md
@@ -6,7 +6,7 @@
   while (n > 0) {
 \end{verbatim}
 ^D
-[Para [Span ("",[],[]) [Str "<-"]]
+[Para [Span ("",[],[]) [Code ("",[],[]) "<-"]]]
 ,CodeBlock ("",[],[]) "  while (n > 0) {"]
 ```
 
diff --git a/test/command/5654.md b/test/command/5654.md
new file mode 100644
index 000000000..3905dca20
--- /dev/null
+++ b/test/command/5654.md
@@ -0,0 +1,6 @@
+```
+% pandoc -f latex -t markdown
+This is {\tt monospaced too} done.
+^D
+This is `monospaced too` done.
+```