diff --git a/src/util-string.scm b/src/util-string.scm
index 54c6ece..d9914b9 100644
--- a/src/util-string.scm
+++ b/src/util-string.scm
@@ -47,7 +47,6 @@
 	 testing
 	 util-utf8)
 
- ;; Extracts first token and the rest as separate string
  (define/doc (string-first+rest str)
    ("* ```str``` - a string to split
 
@@ -63,7 +62,6 @@ remainder with leading whitespace removed.")
 	   (cons key-str val))
 	 (cons str ""))))
 
- ;; Encodes given UTF-8 string as quoted-printable
  (define/doc (string->qp str)
    ("* ```str``` - arbitrary string
 
@@ -93,7 +91,6 @@ quoted-printable sequences.")
 			    "")))
 		     res)))))
 
- ;; Returns upper-case version of the string
  (define/doc (string-upcase str)
    ("* ```str``` - arbitrary string
 
diff --git a/src/util-tag.scm b/src/util-tag.scm
index d7eb7e9..2938b27 100644
--- a/src/util-tag.scm
+++ b/src/util-tag.scm
@@ -39,7 +39,6 @@
 	 (chicken string)
 	 (chicken random))
 
- ;; Syntactic wrapper to allow easy tag creation
  (define-syntax/doc make-tag
    ("* ```tag``` - unquoted symbol to base the tag on