diff --git a/test/command/4669.md b/test/command/4669.md
new file mode 100644
index 000000000..b9db45b17
--- /dev/null
+++ b/test/command/4669.md
@@ -0,0 +1,29 @@
+```
+% pandoc -f latex -t native
+{\tt <-}
+
+\begin{verbatim}
+  while (n > 0) {
+\end{verbatim}
+^D
+[Para [Span ("",[],[]) [Str "<-"]]
+,CodeBlock ("",[],[]) "  while (n > 0) {"]
+```
+
+```
+% pandoc -f latex -t native
+\begin{itemize}
+\item<1> one
+\item<2-3,5> two
+\item<2| @alert> three
+\item<handout> four
+\item<beamer:2> five
+\end{itemize}
+^D
+[BulletList
+ [[Para [Str "one"]]
+ ,[Para [Str "two"]]
+ ,[Para [Str "three"]]
+ ,[Para [Str "four"]]
+ ,[Para [Str "five"]]]]
+```