diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 011732a8..f4ee8f6d 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -240,6 +240,7 @@
                 (case c
                   [(#\\) (display "$\\backslash$")]
                   [(#\_) (display "$\\_$")]
+                  [(#\^) (display "{\\char'136}")]
                   [(#\>) (if (rendering-tt)
                              (display "{\\texttt >}")
                              (display "$>$"))]
@@ -253,7 +254,7 @@
                                          (printf "{\\hbox{\\texttt{~a}}}" c)
                                          (display c))]
                   [(#\~) (display "$\\sim$")]
-                  [(#\{ #\} #\# #\% #\&) (display "\\") (display c)]
+                  [(#\{ #\} #\# #\% #\& #\$) (display "\\") (display c)]
                   [(#\uDF) (display "{\\ss}")]
                   [(#\u039A) (display "K")] ; kappa
                   [(#\u0391) (display "A")] ; alpha
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
index 1acb0bf1..ba19bfc4 100644
--- a/collects/scribble/scheme.ss
+++ b/collects/scribble/scheme.ss
@@ -369,6 +369,8 @@
                              (string? (syntax-e c))
                              (bytes? (syntax-e c))
                              (char? (syntax-e c))
+                             (regexp? (syntax-e c))
+                             (byte-regexp? (syntax-e c))
                              (boolean? (syntax-e c)))
                          value-color]
                         [(identifier? c)