@@ -58,10 +58,11 @@
          html-excerpt*
          html-item
          html-section
          html-subsection
          html-newthought
+         html-sep
          html-caps
          html-mono
          html-center
          html-strike
          html-block
@@ -85,10 +86,11 @@
 
 (define html-item (default-tag-function 'li))
 (define html-section (default-tag-function 'h2))
 (define html-subsection (default-tag-function 'h3))
 (define html-newthought (default-tag-function 'span #:class "newthought"))
+(define (html-sep) '(hr))
 (define html-caps (default-tag-function 'span #:class "caps"))
 (define html-center (default-tag-function 'div #:style "text-align: center"))
 (define html-strike (default-tag-function 'span #:style "text-decoration: line-through"))
 (define html-dialogue (default-tag-function 'dl #:class "dialogue"))
 (define html-mono (default-tag-function 'samp))