diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 23805328..a6c365d9 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -175,7 +175,7 @@
     (unless (andmap string? strs)
       (raise-type-error 'litchar "strings" strs))
     (let ([s (apply string-append
-                    (map (lambda (s) (if (string=? s "\n") " " s))
+                    (map (lambda (s) (regexp-replace* "\n" s " "))
                          strs))])
       (if (regexp-match? #rx"^ *$" s)
           (make-element "schemeinputbg" (list (hspace (string-length s))))