diff --git a/src/api-client.lisp b/src/api-client.lisp
index 4ca1d8d..efacea3 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -499,12 +499,12 @@ database."
     (program-events:push-event event)))
 
 (defun-api-call get-remote-status (status-id)
-  "Get a single status identifird bu status-id"
+  "Get a single status identified bu `status-id'"
   (ignore-errors
     (tooter:find-status *client* status-id)))
 
 (defun-api-call get-status-context (status-id)
-  "Get a parent and a child of a status (identified by status-id), if exists"
+  "Get a parent and a child of a status (identified by `status-id'), if exists"
   (tooter:context *client* status-id))
 
 (defun-api-call send-status (content
diff --git a/src/db.lisp b/src/db.lisp
index 6d78bcd..c51e747 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -1282,7 +1282,7 @@ than (swconf:config-purge-history-days-offset) days in the past"
            (actual-application (prepare-for-db application))
            (tag-names          (if tags
                                    (mapcar #'client:tag-name tags)
-                                   ""))
+                                   '()))
            (actual-tags        (concat-tags object))
            (actual-language    (prepare-for-db language))
            ;; use string-downcase as a workaround because tooter return an upcased keyword