diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index e2348f0ef..993526fcb 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1234,8 +1234,7 @@ may have been stored before."
       (while (re-search-forward org-table-dataline-regexp end t)
 	(pcase (org-element-lineage (org-element-at-point) '(table) t)
 	  (`nil nil)
-	  ((and table
-		(guard (eq 'table.el (org-element-property :type table))))
+	  ((pred (lambda (e) (eq 'table.el (org-element-property :type e))))
 	   nil)
 	  (table
 	   (goto-char (org-element-property :contents-end table))