Использование flyspell в текущем дереве режимов org -

Я пытаюсь написать небольшую функцию lisp для запуска flyspell в одной ветке режима org -. Я добавил это в свой файл.emacs :

(defun flyspell-current-tree()
  (interactive)
  (org-mark-subtree)
  (flyspell-region))

(global-set-key (kbd "S-<f8>") 'flyspell-current-tree)

, но при его запуске я получаю следующую ошибку:

flyspell-current-tree: Wrong number of arguments

Есть идеи?