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?'