diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 0a98fbe..5a7614c 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -1741,8 +1741,8 @@ If STRING is non-nil, the text property will be
fetched from position 0
in that string. If STRING is nil, it will be fetched from the beginning
of the current line."
(org-with-gensyms (marker)
- `(let ((,marker (get-text-property (if string 0 (point-at-bol))
- 'org-hd-marker string)))
+ `(let ((,marker (get-text-property (if ,string 0 (point-at-bol))
+ 'org-hd-marker ,string)))
(with-current-buffer (marker-buffer ,marker)
(save-excursion
(goto-char ,marker)