                  (svn-action-files)))
         (commit-buf (current-buffer))
         (status-buf svn-status-buf)
-        (msg-file (make-temp-file "svn-commit")))
+        (msg-file (if (fboundp 'make-temp-file)
+		      (make-temp-file "svn-commit")
+		    (make-temp-name (expand-file-name "svn-commit"
+						      (temp-directory))))))
     ;; Ensure final newline
     (goto-char (point-max))
     (unless (bolp)

          (when pos
            (svn-update-status-flag pos ?\  ?\ )
            (svn-update-status-msg pos "Committed"))
          (when file-buffer
            (with-current-buffer file-buffer
              ;; Use buffer-file-name instead of path to get the
              ;; canonical file name used by vc

                      (insert "         Top-level directory:")
                    (insert "         Directory " dir ":"))
                  (newline)
		  ;; Next line only needed on XEmacs
		  (remove-text-properties start (point) '(svn-file nil))
                  (add-text-properties start (point)
                                       (list 'face 'bold
                                             'svn-dir dir))))))
          (forward-line 1))))))

