- fixed type of value 'tag-names';

- fixed a couple of docstrings.

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

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