goof in small function where???

[ken <gebser@mousecar.com>]

The function below half works: it does put the buffer-file-name into the 
kill ring, but nothing is displayed in the minibuffer.  Why?  And how to 
fix this?

(defun file-name-into-kill-buffer ()
"Put path/filename of current buffer onto kill-ring so to paste
into an X application.  Also display it in minibuffer."
(interactive)
      (let ((str (buffer-file-name)))
        (and str
             (kill-new str)
             (message "Copied filename %s to kill ring" str)))
)

Thanks much.