diff --git a/collects/scribble/eval.rkt b/collects/scribble/eval.rkt index 0cc82815..d0618a43 100644 --- a/collects/scribble/eval.rkt +++ b/collects/scribble/eval.rkt @@ -41,7 +41,7 @@ (namespace-require '(for-syntax racket/base)) (define (literal-string style s) - (let ([m (regexp-match #rx"^(.*)( +)(.*)$" s)]) + (let ([m (regexp-match #rx"^(.*)( +|^ )(.*)$" s)]) (if m (make-element #f (list (literal-string style (cadr m)) (hspace (string-length (caddr m)))