diff --git a/lisp/org.el b/lisp/org.el
index f07d0a7a9..1d9e984ce 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6936,6 +6936,7 @@ show that drawer instead."
 By default, the function expands headings, blocks and drawers.
 When optional argument TYPE is a list of symbols among `blocks',
 `drawers' and `headings', to only expand one specific type."
+  (interactive)
   (dolist (type (or types '(blocks drawers headings)))
     (org-flag-region (point-min) (point-max) nil
 		     (pcase type