diff --git a/lisp/emacs-lisp/shortdoc-doc.el b/lisp/emacs-lisp/shortdoc-doc.el
index 40b98811bf0..eb642c1600b 100644
--- a/lisp/emacs-lisp/shortdoc-doc.el
+++ b/lisp/emacs-lisp/shortdoc-doc.el
@@ -100,7 +100,7 @@
    :eval (map-contains-key [bar foo baz] 1)
    :eval (map-contains-key #s(hash-table data (bar 1 foo 2 baz 3)) 'foo))
   (map-put!
-   (map key value)
+   :args (map key value)
    :eval
 "(let ((map (list 'bar 1 'baz 3)))
     (map-put! map 'foo 2)
@@ -1301,7 +1301,7 @@
    :eval (let ((x 2)) (incf x 2) x))
   (decf
    :eval (let ((x 4)) (decf x) x)
-   :eval (let ((x 4)) (decf x 2)) x)
+   :eval (let ((x 4)) (decf x 2) x))
   "Predicates"
   (=
    :args (number &rest numbers)
diff --git a/lisp/treesit.el b/lisp/treesit.el
index d7cfe0a9f3f..ebdd2367a52 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -5849,7 +5849,7 @@ language."
   "Pattern matching"
   (treesit-query-capture
    :no-eval (treesit-query-capture node '((identifier) @id "return" @ret))
-   :eg-result-string "((id . #<treesit-node (identifier) in 195-196>) (ret . #<treesit-node "return" in 338-344>))")
+   :eg-result-string "((id . #<treesit-node (identifier) in 195-196>) (ret . #<treesit-node \"return\" in 338-344>))")
   (treesit-query-compile
    :no-eval (treesit-query-compile 'c '((identifier) @id "return" @ret))
    :eg-result-string "#<treesit-compiled-query>")