diff --git a/eglot.md b/eglot.md
index ffa534d..ea05d59 100644
--- a/eglot.md
+++ b/eglot.md
@@ -48,10 +48,10 @@ the children of class at point."
               (cl-destructuring-bind (&key uri range) (plist-get node :location)
                 (insert (make-string depth ?\ ) (plist-get node :name) "\n")
                 (make-text-button (+ (point-at-bol 0) depth) (point-at-eol 0)
-                                  'action (lambda (_arg)
+                                  'action `(lambda (_arg)
                                             (interactive)
-                                            (find-file (eglot--uri-to-path uri))
-                                            (goto-char (car (eglot--range-region range)))))
+                                            (find-file (eglot--uri-to-path ',uri))
+                                            (goto-char (car (eglot--range-region ',range)))))
                 (cl-loop for child across (plist-get node :children)
                          do (push (cons (1+ depth) child) tree)))))))
     (eglot--error "Hierarchy unavailable")))