(defun rename2 (filename)
(interactive "Frename to:")
(rename-file (buffer-file-name) filename)
(rename-buffer (file-name-nondirectory filename))
)

というごっつ簡単なコマンドを使ってます。
(interactive "F...:") のおかげでミニバッファにファイル名をいれるように促されますが、
このデフォルト値がカレントディレクトリになってます。
これを、バッファのファイル名にしたいのですが、どうしたらいいですか。
イメージ的には
(interactive (format "Frename to: %s" (buffer-file-name)))
なんですが、エラーになりました。