Hi Leo,

Leo <sdl.web@gmail.com> writes:

> I have been using this outside of org-mode for many years but it is
> broken in 7.7.

I suggest using this (new) outline function instead:

#+begin_src emacs-lisp
(defun outline-narrow-to-subtree ()
  "Narrow buffer to the current subtree."
  (interactive)
  (save-excursion
    (save-match-data
      (narrow-to-region
       (progn (outline-back-to-heading t) (point))
       (progn (outline-end-of-subtree)
	      (if (and (outline-on-heading-p t) (not (eobp))) 
		  (backward-char 1))
	      (point))))))
#+end_src

You can patch outline.el with the attached patch to bind this command to
C-c @ C-s in outline-mode or outline-minor-mode.

I will submit this patch to Emacs developers.