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)

Reply via email to