               (let ((process-environment (svn-process-environment)))
                 ;; `call-process' ignores `process-connection-type' and
                 ;; never opens a pseudoterminal.
-                (apply 'call-process svn-exe nil proc-buf nil arglist))
+                (apply svn-call-process-function svn-exe nil proc-buf nil arglist))
               (setq svn-status-last-output-buffer-name svn-process-buffer-name)
               (run-hooks 'svn-post-process-svn-output-hook)
               (setq svn-status-mode-line-process-status "")

                                         ,value-type)))))
    widget))


;;; keymaps


         ((eq original-filemarks ??) ;original is unversioned: use fallback
          (if (yes-or-no-p (format "%s is unversioned.  Use `%s -i -- %s %s'? "
                                   original-name fallback original-name dest))
              ;; TODO: consider svn-call-process-function here also...
              (progn (call-process fallback nil (get-buffer-create svn-process-buffer-name) nil
                                   "-i" "--" original-name dest)
                     (setq moved t))
