diff --git a/collects/scribble/text/output.ss b/collects/scribble/text/output.ss
index e1464737e0..6a8dc14dd0 100644
--- a/collects/scribble/text/output.ss
+++ b/collects/scribble/text/output.ss
@@ -64,7 +64,7 @@
                 [else
                  (let ([col (- col len1)]
                        [len2 (if (number? pfx2) pfx2 (string-length pfx2))])
-                   (when (< col len2) (write-string (->str pfx2) p col )))])))))
+                   (when (< col len2) (write-string (->str pfx2) p col)))])))))
   ;; the basic printing unit: strings
   (define (output-string x)
     (define pfx (mcar pfxs))