diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index aed774ee2..44064fb5c 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -395,7 +395,10 @@ called with one argument, the key used for comparison."
       ;; Heuristics for 2+ level heading not at bol.
       (while (re-search-forward (rx (not (any "*\n\r ,")) ;; Not a bol; not escaped ,** heading; not " *** words"
                                     "*" (1+ "*") " ") nil t)
-        (unless (org-at-block-p) ; Inside a block, where the chances to have heading a slim.
+        (unless (org-element-type-p
+                 (org-element-at-point)
+                 '(comment-block example-block export-block src-block)
+                 ) ; Inside a block, where the chances to have heading a slim.
           (push (list (match-beginning 0) "Possibly misplaced heading line") result)))
       result)))