call-process-region returns nil

Hello, in 21.5.9 lisp/code-process.el:call-process-region function returns nothing, contrary to its documentation. At least one package (flyspell.el) depends on its returning 0 for success. Patch attached. Nikita. ---------------------------------------------------------------------- --- code-process.el Mon Jul 15 07:57:32 2002 +++ /usr/local/lib/xemacs-21.5-b9/lisp/code-process.el Wed Jan 15 16:05:17 2003 ＠＠ -172,12 +172,14 ＠＠ ;; any of it in the deleted region if insertion happens at either end ;; of the region. (let ((s (and deletep (copy-marker start t))) - (e (and deletep (copy-marker end)))) - (apply #'call-process program (list (current-buffer) start end) - buffer displayp args) + (e (and deletep (copy-marker end))) + (ret)) + (setq ret (apply #'call-process program (list (current-buffer) start end) + buffer displayp args)) ; If start and end were the same originally, s will be beyond e now (if (and deletep (> e s)) - (delete-region s e)))) + (delete-region s e)) + ret)) (defun start-process (name buffer program &rest program-args) "Start a program in a subprocess. Return the process object for it. ----------------------------------------------------------------------