diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 31a815dbc..e54782e4e 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3673,7 +3673,7 @@ A good way to set it is through options in `org-agenda-custom-commands'.")
 Also moves point to the end of the skipped region, so that search can
 continue from there."
   (let ((p (point-at-bol)) to)
-    (when (org-in-src-block-p) (throw :skip t))
+    (when (org-in-src-block-p t) (throw :skip t))
     (and org-agenda-skip-archived-trees (not org-agenda-archives-mode)
 	 (get-text-property p :org-archived)
 	 (org-end-of-subtree t)