@@ -296,13 +296,13 @@
                            "must be in format \"[symbol] [past-tense-verb]\""
                            "disposition attr"
                            disposition-attr))
   
   ;; Parse out remaining columns
-  (define author (maybe-attr 'author attrs))
+  (define author (maybe-attr 'author attrs default-authorname))
   (define note-id (build-note-id note-tx))
-  (define title-html-flow (html$-note-title author pagenode parent-title-plain))
+  (define title-html-flow (html$-note-title pagenode parent-title-plain))
   (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 (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))