diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index fcc6d4ed..998ca244 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -70,10 +70,11 @@
                          strs))])
       (let ([spaces (regexp-match-positions #rx"^ *" s)]
             [end-spaces (regexp-match-positions #rx" *$" s)])
-        (make-element "schemeinput" 
-                      (list (hspace (cdar spaces))
-                            (make-element #f (list (substring s (cdar spaces) (caar end-spaces))))
-                            (hspace (- (cdar end-spaces) (caar end-spaces))))))))
+        (make-element
+         "schemeinputbg"
+         (list (hspace (cdar spaces))
+               (make-element "schemeinput" (list (substring s (cdar spaces) (caar end-spaces))))
+               (hspace (- (cdar end-spaces) (caar end-spaces))))))))
 
   (define (verbatim s)
     (let ([strs (regexp-split #rx"\n" s)])
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index 56b2c80c..a4406c92 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -234,6 +234,10 @@
                font-family: Courier; font-size: 80%;
                }
 
+               .schemeinputbg {
+               background-color: #eeeeee;
+               }
+
                .schemeparen {
                color: #843c24;
                font-family: Courier; font-size: 80%;