*** tm-files.scm	2004/10/11 15:12:06	1.1
--- tm-files.scm	2004/10/11 15:20:53
***************
*** 35,41 ****
    (with file* (url-concretize file)
      ;; FIXME: concretization should not be necessary
      ;; due to bad current implementation of 'interactive'
!     (if (url-exists? file)
  	(interactive '("File already exists. Overwrite existing file?")
  		     `(lambda (confirm)
  			(conditional-save-buffer ,file* ,fm confirm)))
--- 35,41 ----
    (with file* (url-concretize file)
      ;; FIXME: concretization should not be necessary
      ;; due to bad current implementation of 'interactive'
! 	(if (and (url-exists? file) (not (equal? fm "html")))
  	(interactive '("File already exists. Overwrite existing file?")
  		     `(lambda (confirm)
  			(conditional-save-buffer ,file* ,fm confirm)))