Failure in latest patcher.el

Hi Didier, Ben, All! Here's the backtrace I get in (emacs-version) "XEmacs 21.1 (patch 14) \"Cuyahoga Valley\" [Lucid] (i386-pc-win32) of Sun May 13 2001 on D5DC120J" with patcher-version "2.4" Best regards, Adrian Signaling: (wrong-number-of-arguments #<compiled-function (&optional buffer-or-string from to flags) "...(11)" [mapcar-extents identity nil buffer-or-string from to flags] 7 143676> 5) extent-list(nil nil nil nil patcher-diff) (car (extent-list nil nil nil nil (quote patcher-diff))) ) (let ((diff-extent ...) (change-logs-extent ...) (regenerate t)) (save-excursion (when patcher-change-logs ... ...) (when diff-extent ... ...) (goto-char patcher-patch-marker) (message "Generating the diff...") (sit-for 0) (apply ... shell-file-name nil t nil shell-command-switch ...) (message "Generating the diff... done") (sit-for 0) (setq diff-extent ...) (set-extent-properties diff-extent ...) (if ... ... ...))) ) patcher-generate-diff() (save-excursion (insert "\n\n") (setq patcher-change-logs-marker (point-marker)) (insert "\n") (and override (setq command ...)) (setq command (patcher-construct-command command files)) (let (...) (and diff-prologue ...)) (setq patcher-project project patcher-files files patcher-diff-command command patcher-patch-marker (point-marker)) (patcher-generate-diff)) ) (let ((command ...) (directory ...)) (funcall (intern ...) project (concat "[PATCH] " subject)) (patcher-minor-mode t) (cd directory) (let (...) (and mail-prologue ...)) (save-excursion (insert "\n\n") (setq patcher-change-logs-marker ...) (insert "\n") (and override ...) (setq command ...) (let ... ...) (setq patcher-project project patcher-files files patcher-diff-command command patcher-patch-marker ...) (patcher-generate-diff))) ) patcher-mail-1(("xemacs-packages" "c:\\Hacking\\XEmacs\\xemacs-packages" :inheritance ("xemacs-21.2")) "Bug fix for build-with-MS of libs/build/build.el" nil t) (lambda (project subject &optional arg) "Prepare a mail about a patch to apply on a project.\nPROJECT is the name of the project (see the variables `patcher-projects'\nand `patcher-subprojects').\nSUBJECT is the subject of the mail.\n\nWhen called interactively, use a prefix (ARG) to override the value of\nthe diff command to use for this project. If you want to work on a\nsubset of the project (e.g. some files, subdirectories etc), you have two\nalternatives:\n\n- for temporary subprojects, you can use the function\n `patcher-mail-subproject', which lets you specify the list of modified\n files / directories.\n- otherwise, you can also define the subprojects in the variable\n `patcher-subprojects' and continue using this function.\n\nPlease note that you can have multiple occurrences of a Patcher mail at\nthe same time, but not more than one at a time on the same project unless\nyou use `patcher-mail-subproject' and the sections of the project don't\noverlap." (interactive (let* ... ...)) (patcher-mail-1 project subject (patcher-project-option project :files) (and arg ...)))(("xemacs-packages" "c:\\Hacking\\XEmacs\\xemacs-packages" :inheritance ("xemacs-21.2")) "Bug fix for build-with-MS of libs/build/build.el" (4)) call-interactively(patcher-mail) command-execute(patcher-mail t) execute-extended-command((4)) call-interactively(execute-extended-command) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/