diff --git a/docs/docread/docread.scm b/docs/docread/docread.scm
index 00d06b7..5932886 100644
--- a/docs/docread/docread.scm
+++ b/docs/docread/docread.scm
@@ -16,7 +16,7 @@
     (irregex-replace/all
       ; Written weirdly to avoid the regexp catching itself.
       ; TODO(puck): only apply at the start of lines?
-      (string->irregex ";{2,} *([^\\n]*)" 'm)
+      (string->irregex ";{2,} ?([^\\n]*)" 'm)
       (get-output-string str-out)
 
       ;; TODO: do we need the space here? this could also be a reader macro instead.