@@ -207,11 +207,13 @@ [(and (note-count . > . 0) (string=? disposition "")) (format "There is a note appended." pagenode)] [else ""])) - (format "~a ~a ~a" series-part disp-part notes-part)) + (cond [(andmap non-empty-string? (list series-part disp-part notes-part)) + (format "~a ~a ~a" series-part disp-part notes-part)] + [else ""])) ;; ~~~ Notes ~~~ ;; Save a collection of â—Šnote tags to the DB, and return the HTML of the complete