diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 5eee6f8b..0c6724b2 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -374,7 +374,9 @@
                  [(#\\) (if (rendering-tt)
                             "{\\char`\\\\}"
                             "$\\backslash$")]
-                 [(#\_) "$\\_$"]
+                 [(#\_) (if (rendering-tt)
+                            "{\\char`\\_}"
+                            "$\\_$")]
                  [(#\^) "{\\char'136}"]
                  [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")]
                  [(#\<) (if (rendering-tt) "{\\texttt <}" "$<$")]