how to get around deprecated function

[B . T . Raven]

Hello:

I am constantly losing short pieces of text left in *scratch* and I wrote this
interactive function:

(defun save-scratchtemp ();; M-x scr
  (interactive)
  (switch-to-buffer "*scratch*")
  (mark-whole-buffer)
 (setq start (point) end (mark))
 (append-to-file start end "c:/mydocu~1/scratchtemp.txt")
)

It "works" but according to the docs mark-whole-buffer shouldn't be used this
way.Is there an understandable (to me) right way of doing this or doing
something else that can be invoked as easily?

Thanks,

Ed