Why adding this write-file-hook makes save-buffer not work anymore!??

[seberino@spawar.navy.mil (Christian Seberino)]

I want to delete a lot of whitespace when I save a file so I make
following function be invoked when I write a file....

   (defun cs-delete-trailing-whitespace() (interactive)
      (delete-trailing-whitespace)
      (let ((original-pos (point)))
         (goto-char (point-max))
         (delete-blank-lines)
         (goto-char original-pos)))
 
and I set up hook like this

(add-hook            'write-file-hooks        'cs-delete-trailing-whitespace)


When I try to do save-buffer it does not work?? What is the problem?!?!

Chris