 
 (defun elfeed-db-set-update-time ()
   "Update the database last-update time."
-  (plist-put elfeed-db :last-update (float-time))
+  (setf elfeed-db (plist-put elfeed-db :last-update (float-time)))
   (run-hooks 'elfeed-db-update-hook))
 
 (defun elfeed-db-add (entries)

(defun elfeed-db-save ()
  "Write the database index to the filesystem."
  (elfeed-db-ensure)
  (plist-put elfeed-db :version elfeed-db-version)
  (mkdir elfeed-db-directory t)
  (let ((coding-system-for-write 'utf-8))
    (with-temp-file (expand-file-name "index" elfeed-db-directory)

          (setf (elfeed-entry-id entry) new-id
                (gethash new-id elfeed-db-entries) entry)
          (avl-tree-enter elfeed-db-index new-id)))))
  (setf elfeed-db (plist-put elfeed-db :version elfeed-db-version))
  elfeed-db-version)

(defun elfeed-db-load ()
