diff --git a/ice-9/documentation.scm b/ice-9/documentation.scm
index 6e74799e6..dacd0c70c 100644
--- a/ice-9/documentation.scm
+++ b/ice-9/documentation.scm
@@ -100,7 +100,7 @@
   ;;
   (define default-in-line-re (make-regexp "^;;; Commentary:"))
   (define default-after-line-re (make-regexp "^;;; Code:"))
-  (define default-scrub (let ((dirt (make-regexp "^;+")))
+  (define default-scrub (let ((dirt (make-regexp "^;+ ?")))
 			  (lambda (line)
 			    (let ((m (regexp-exec dirt line)))
 			      (if m (match:suffix m) line)))))