diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index 72afa9d52..47bf32450 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -3071,7 +3071,9 @@ used as a communication channel."
       (catch 'exit
 	(org-element-map
 	 (plist-get info :parse-tree) (car blob)
-	 (lambda (el local) (when (equal el blob) (throw 'exit local)))
+	 (lambda (el local)
+	   (when (equal el blob)
+	     (throw 'exit (plist-get local :genealogy))))
 	 info)))))
 
 (defun org-export-get-parent-headline (blob info)