@@ -240,11 +240,11 @@
   (define title-html-flow (html$-note-title author 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 author author-url content-html))
+    (html$-note-listing-full pagenode note-id title-html-flow note-date content-html author author-url))
 
   (define note-record
     (list pagenode
           note-id
           title-html-flow
@@ -265,6 +265,6 @@
             (list->sql-fields table_notes-fields)
             (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 author author-url content-html))
+  (html$-note-in-article note-id note-date content-html author author-url))