diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index bf32a6acd..c1170c0d2 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3735,8 +3735,7 @@ FILTER-ALIST is an alist of filters we need to apply when
 	    (save-excursion
 	      (goto-char (point-min))
 	      (while (equal (forward-line) 0)
-		(when (setq mrk (or (get-text-property (point) 'org-hd-marker)
-				    (get-text-property (point) 'org-hd-marker)))
+		(when (setq mrk (get-text-property (point) 'org-hd-marker))
 		  (put-text-property (point-at-bol) (point-at-eol)
 				     'tags (org-with-point-at mrk
 					     (delete-dups