diff --git a/org-roam-db.el b/org-roam-db.el
index 295bb56..defdfbb 100644
--- a/org-roam-db.el
+++ b/org-roam-db.el
@@ -165,7 +165,7 @@ SQL can be either the emacsql vector representation, or a string."
 
     (tags
      ([(node-id :not-null)
-      tag]
+       tag]
       (:foreign-key [node-id] :references nodes [id] :on-delete :cascade)))
 
     (links
@@ -343,10 +343,10 @@ If UPDATE-P is non-nil, first remove the file in the database."
            (properties (org-entry-properties))
            (olp (org-get-outline-path)))
       (org-roam-db-query
-           [:insert :into nodes
-            :values $v1]
-           (vector id file level pos todo priority
-                   scheduled deadline title properties olp)))))
+       [:insert :into nodes
+        :values $v1]
+       (vector id file level pos todo priority
+               scheduled deadline title properties olp)))))
 
 (defun org-roam-db-insert-aliases ()
   "Insert aliases for node at point into Org-roam cache."
diff --git a/org-roam.el b/org-roam.el
index 35f814e..4008532 100644
--- a/org-roam.el
+++ b/org-roam.el
@@ -472,7 +472,8 @@ OLD-FILE is cleared from the database, and NEW-FILE-OR-DIR is added."
 Uses the ID, and fetches remaining details from the database.
 This can be quite costly: avoid, unless dealing with very few
 nodes."
-  (let ((node-info (car (org-roam-db-query [:select [file level pos todo priority scheduled deadline title properties olp]
+  (let ((node-info (car (org-roam-db-query [:select [file level pos todo priority
+                                                     scheduled deadline title properties olp]
                                             :from nodes
                                             :where (= id $s1)
                                             :limit 1]
@@ -829,7 +830,7 @@ If the property is already set, it's value is replaced."
     (seq-uniq (append roam-tags org-tags))))
 
 (defun org-roam-tag-add (tag)
-  "Add a tag to the node at point."
+  "Add TAG to the node at point."
   (interactive
    (list (completing-read "Tag: " (org-roam-tag-completions))))
   (let ((node (org-roam-node-at-point 'assert)))