This delete line function problems on last line - how fix?

[Chris Seberino]

(defun new-kill-line(&optional arg)
   (interactive "P") 
   (let ((current-pos (point)))
      (kill-region (line-beginning-position) (+ (line-end-position arg) 1))
      (goto-char (min current-pos (line-end-position)))))

This little gem deletes a line no matter what position you are on
in the line.

How do I make this function avoid "args out of range" errors
on the *LAST* line when I try to erase that???

Thanks,

CS
-- 
=======================================================
| Dr. Christian Seberino  || (619) 553-7940  (office) |
| SPAWARSYSCEN 2363       || (619) 553-2836  (fax)    |
| 53560 HULL ST           ||                          |
| SAN DIEGO CA 92152-5001 || seberino@spawar.navy.mil |
=======================================================