Is this fallout from the end-of-defun changes?

[Juanma Barranquero]

;;; bug.el ;;;
(defun function1 ()
  nil)

(defun function2 ()
  nil)
;;; end ;;;

Doing

  emacs -Q bug.el --eval "(progn (forward-list) (eval-defun nil))"

With 22.3              => function1
With the pretest       => function1
With the current trunk => function2

I'll file a bug report as soon as Stefan confirms that it is one (it
should, it's quite weird to be on a line of function1 and get
function2 evalled).

    Juanma