diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 22d95211..0a2468a4 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -42,9 +42,10 @@
 (define-code SCHEMEBLOCK (to-paragraph/prefix (hspace 2) (hspace 2) "")
                          UNSYNTAX)
 (define-code SCHEMEBLOCK0 to-paragraph UNSYNTAX)
+(define interaction-prompt (make-element 'tt (list "> " )))
 (define-code schemeinput
   (to-paragraph/prefix
-   (make-element #f (list (hspace 2) (make-element 'tt (list "> " ))))
+   (make-element #f (list (hspace 2) interaction-prompt))
    (hspace 4)
    ""))