@@ -97,18 +97,18 @@
   (format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
           pagenode
           parent-title))
 
 (define (html$-note-contents disposition-mark elems)
-  (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems)))
   (define disposition
     (cond [(non-empty-string? disposition-mark)
            `(span [[class "disposition-mark"]] ,disposition-mark)]
           [else ""]))
   (define body-elems
     (cond
-      [(block-txexpr? (car elems))
+      [(and (block-txexpr? (car elems)) (non-empty-string? disposition-mark))
+       (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems)))
        (cons (txexpr first-tag first-attrs (cons disposition first-elems)) (cdr elems))]
       [else
        (cons disposition elems)]))
   (string-append* (map ->html body-elems)))