Index: code-docs/snippets-html.scrbl
==================================================================
--- code-docs/snippets-html.scrbl
+++ code-docs/snippets-html.scrbl
@@ -93,19 +93,10 @@
 
 @defproc[(html$-page-body-close) non-empty-string?]
 
 Returns a string containing the page’s @tt{<footer>} and closing tags.
 
-@defproc[(html$-note-title [author string?] [pagenode pagenode?] [parent-title string?])
-non-empty-string?]
-
-Returns a string containing the HTML for a note’s title. The title is used when the note is
-displayed in a separate context from its parent article.
-
-If @racket[_author] is empty, then @racket[default-authorname] is used. The @racket[_pagenode] and
-@racket[_parent-title] values are for generating a link to the parent article.
-
 @defproc[(html$-note-contents [disposition-mark string?] [elems (listof xexpr?)]) non-empty-string?]
 
 Returns a string containing the body-elements of a note converted to HTML. If
 @racket[_disposition-mark] is not empty, a @tt{<span>} containing it will be inserted as the first
 element of the first block-level element.

Index: crystalize.rkt
==================================================================
--- crystalize.rkt
+++ crystalize.rkt
@@ -71,10 +71,11 @@
 
 (define table_notes-fields
   '(pagenode
     note_id
     title_html_flow
+    title_plain
     author
     author_url
     date
     disposition
     content_html
@@ -318,11 +319,13 @@
                            disposition-attr))
   
   ;; Parse out remaining columns
   (define author (maybe-attr 'author attrs default-authorname))
   (define note-id (build-note-id note-tx))
-  (define title-html-flow (html$-note-title pagenode parent-title-plain))
+  (define title-tx (make-note-title pagenode parent-title-plain))
+  (define title-html-flow (->html title-tx #:splice? #t))
+  (define title-plain (tx-strs title-tx))
   (define author-url (maybe-attr 'author-url attrs))
   (define-values (disp-mark disp-verb) (disposition-values disposition-attr))
   (define content-html (html$-note-contents disp-mark disp-verb (get-elements note-tx)))
   (define listing-full-html
     (html$-note-listing-full pagenode note-id title-html-flow note-date content-html author author-url))
@@ -329,10 +332,11 @@
 
   (define note-record
     (list pagenode
           note-id
           title-html-flow
+          title-plain
           author
           author-url
           note-date
           disposition-attr
           content-html
@@ -350,10 +354,15 @@
             (list->sql-parameters table_notes-fields)))
   (apply query! save-note-query note-record)
   
   ;; return html$ of note
   (html$-note-in-article note-id note-date content-html author author-url))
+
+(define (make-note-title pagenode parent-title-plain)
+  `(note-title "Re: " (a [[class "cross-reference"]
+                          [href ,(format "~a~a" web-root pagenode)]]
+                         ,parent-title-plain)))
 
 (define (article-plain-title pagenode)
   (query-value (sqltools:dbc) "SELECT `title_plain` FROM `articles` WHERE `pagenode` = ?1" (symbol->string pagenode)))
 
 ;; ~~~ Keyword Index Entries ~~~

Index: snippets-html.rkt
==================================================================
--- snippets-html.rkt
+++ snippets-html.rkt
@@ -19,11 +19,10 @@
          html$-page-body-open
          html$-article-open
          html$-article-close
          html$-article-listing-short
          html$-page-body-close
-         html$-note-title
          html$-note-contents
          html$-note-listing-full
          html$-note-in-article
          html$-notes-section
          html$-paginate-navlinks)
@@ -79,15 +78,10 @@
   ◊string-append{<footer>By Joel Dueck</footer>
  </main></body>})
 
 ;; Notes
 ;;
-(define (html$-note-title pagenode parent-title)
-  (format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
-          pagenode
-          parent-title))
-
 (define (html$-note-contents disposition-mark disposition-verb elems)
   (define disposition
     (cond [(non-empty-string? disposition-mark)
            `(abbr [[class "disposition-mark-in-note"]
                    [title ,(string-append "The original article is herewith considered "