diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index fae6f619..e2e661da 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -906,9 +906,9 @@ For composing functions with an apply so that they can be used with the ~:around
      (org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))
 
   (defmacro defvar-setq (name value)
-    (if (boundp name)
-        `(setq ,name ,value)
-      `(defvar ,name ,value)))
+    `(if (boundp ,name)
+         (setq ,name ,value)
+       (defvar ,name ,value)))
 
   (defun eval-region-or-last-sexp ()
     (interactive)