diff --git a/lisp/org.el b/lisp/org.el
index 270aa4fa0..ff88310f6 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -24917,8 +24917,10 @@ modified."
 
 (defun org-show-children (&optional level)
   "Show all direct subheadings of this heading.
-Prefix arg LEVEL is how many levels below the current level should be shown.
-Default is enough to cause the following heading to appear."
+Prefix arg LEVEL is how many levels below the current level
+should be shown.  Default is enough to cause the following
+heading to appear."
+  (interactive "p")
   (save-excursion
     (org-back-to-heading t)
     (let* ((current-level (funcall outline-level))