From d1d35d28bf48e27983f12d9a14eac38d07c359c0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 26 Aug 2011 10:01:28 -0600
Subject: [PATCH] Guide corrections

original commit: bedd7b16713bcea67f44e8bc7e30a5782b8a1f66
---
 collects/scribble/eval.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))