diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el
index 01ee2ac8b..7ab3bde5f 100644
--- a/lisp/org-pcomplete.el
+++ b/lisp/org-pcomplete.el
@@ -232,7 +232,8 @@ When completing for #+STARTUP, for example, this function returns
 			      ;; a space.
 			      (and (member name '("EXPORT" "SRC")) " "))
 		      block-names)
-		(push (format "ATTR_%s: " name) block-names)))
+		(push (format "ATTR_%s: " name) block-names))
+              (push "ATTR_BEAMER:" block-names))
 	    (mapcar (lambda (keyword) (concat keyword ": "))
 		    (org-get-export-keywords))))
    (substring pcomplete-stub 2)))