Simple lisp question

[Sebastian Tennant]

Hu gnus.

What is wrong with this simple code, (taken directly from O'Reilly's Learning Gnu Emacs)? 

	(defun count-words-buffer ()
(let ((count 0))
(goto-char (point-min))
(while (< (point) (point-max))
(forward-word 1)
(setq count (+ 1 count)))
(message "Buffer contains %d words." count)))


(count-words-buffer)*


--1-:**-F1  wordcount.el      [(Lisp Interaction)]--L10--All---------------


With point at * (above), C-j to evaluate achieves nothing.  Below is the backtrace buffer output.  


	Debugger entered--Lisp error: (void-function count-words-buffer)
(count-words-buffer)
eval((count-words-buffer))
eval-last-sexp-1(t)
eval-last-sexp(t)
eval-print-last-sexp()
call-interactively(eval-print-last-sexp)


-:%*-F1  *Backtrace*       [(Debugger)]--L2-All----------------------------

Learning Gnu Emacs (2nd edition) is written for Emacs v. 19.30.  I'm running v. 21.2.  Can things have changed that much?

Seb.


"War is not the answer..." - Marvin Gaye - 'What's Going On?'