efs bug: invalid function (macro ... ad-get-advice-info

I tried to use `C' in dired to copy a file over an efs link. It worked the other day before I ran a cvs update of my packages tree, so perhaps a recent change has brought this? I will try and debug it some, but in the meantime, here's a stacktrace for the experts. Let me know if you have already solved this one, please. Signaling: (invalid-function (macro . #<compiled-function (function) "...(4)" [ad-get-advice-info function] 2>)) ad-is-advised(dired-call-process) efs-overwrite-fn("efs" dired-call-process) byte-code("..." [boundp MULE featurep mule load "efs-dired-mule" put dired-print-file efs efs-dired-print-file dired-make-compressed-filename efs-dired-make-compressed-filename dired-compress-file efs-dired-compress-file dired-recursive-delete-directory efs-dired-recursive-delete-directory dired-uncache efs-dired-uncache dired-shell-call-process efs-dired-shell-call-process dired-shell-unhandle-file-name efs-dired-shell-unhandle-file-name dired-file-modtime efs-dired-file-modtime dired-set-file-modtime efs-dired-set-file-modtime efs-overwrite-fn "efs" dired-call-process dired-insert-headerline dired-manual-move-to-filename dired-manual-move-to-end-of-filename dired-make-filename-string dired-flag-backup-files dired-create-files dired-find-file dired-find-file-other-window dired-find-file-other-frame dired-collect-file-versions dired-file-name-lessp add-hook dired-before-readin-hook efs-dired-before-readin dired-grep dired-grep-delete-local-temp-file efs-diff/grep-del-temp-fi! le dired-grep-load-hook #<compiled-function nil "...(6)" [efs-overwrite-fn "efs" dired-grep-delete-local-temp-file efs-diff/grep-del-temp-file] 4>] 4) load-internal("efs-dired" nil t nil nil nil) load("efs-dired" nil t nil) require(efs-dired) byte-code("..." [efs-fix-path intern symbol-name vms efs-key-obarray put #<compiled-function (&rest args) "...(51)" [intern symbol-name vms efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-vms" error "%s definition of %s is not defined by loading %s" apply args] 5> mts #<compiled-function (&rest args) "...(51)" [intern symbol-name mts efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-mts" error "%s definition of %s is not defined by loading %s" apply args] 5> cms #<compiled-function (&rest args) "...(51)" [intern symbol-name cms efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-cms" error "%s definition of %s is not defined by loading %s" apply args] 5> ti-explorer #<compiled-function (&rest args) "...(51)" [intern symbol-name ti-explorer efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-ti-explorer" error "%s definition of %s is not defined by loading %s" apply args] 5> ti-twenex #<compiled-function (&rest args) "...(51)" [intern symbol-name ti-twen! ex efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-ti-twenex" error "%s definition of %s is not defined by loading %s" apply args] 5> dos #<compiled-function (&rest args) "...(51)" [intern symbol-name dos efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-pc" error "%s definition of %s is not defined by loading %s" apply args] 5> mvs #<compiled-function (&rest args) "...(51)" [intern symbol-name mvs efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-mvs" error "%s definition of %s is not defined by loading %s" apply args] 5> tops-20 #<compiled-function (&rest args) "...(51)" [intern symbol-name tops-20 efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-tops-20" error "%s definition of %s is not defined by loading %s" apply args] 5> mpe #<compiled-function (&rest args) "...(51)" [intern symbol-name mpe efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-mpe" error "%s definition of %s is not defined by loading %s" apply args] 5> os2 #<compiled-functio! n (&rest args) "...(51)" [intern symbol-name os2 efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-pc" error "%s definition of %s is not defined by loading %s" apply args] 5> vos #<compiled-function (&rest args) "...(51)" [intern symbol-name vos efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-vos" error "%s definition of %s is not defined by loading %s" apply args] 5> ms-unix #<compiled-function (&rest args) "...(51)" [intern symbol-name ms-unix efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-ms-unix" error "%s definition of %s is not defined by loading %s" apply args] 5> netware #<compiled-function (&rest args) "...(51)" [intern symbol-name netware efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-netware" error "%s definition of %s is not defined by loading %s" apply args] 5> cms-knet #<compiled-function (&rest args) "...(51)" [intern symbol-name cms-knet efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-cms-knet" error "%s definition of %s ! is not defined by loading %s" apply args] 5> guardian #<compiled-function (&rest args) "...(51)" [intern symbol-name guardian efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-guardian" error "%s definition of %s is not defined by loading %s" apply args] 5> nos-ve #<compiled-function (&rest args) "...(51)" [intern symbol-name nos-ve efs-key-obarray "tmp1" tmp1 qkey efs-fix-path load "efs-nos-ve" error "%s definition of %s is not defined by loading %s" apply args] 5> efs-fix-dir-path #<compiled-function (&rest args) "...(51)" [intern symbol-name vms efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-vms" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name mts efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-mts" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name cms efs-key-obarray "tmp1"! tmp1 qkey efs-fix-dir-path load "efs-cms" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name ti-explorer efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-ti-explorer" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name ti-twenex efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-ti-twenex" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name dos efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-pc" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name mvs efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-mvs" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) ! "...(51)" [intern symbol-name tops-20 efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-tops-20" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name mpe efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-mpe" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name os2 efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-pc" error "%s definition of %s is not defined by loading %s" apply args] 5> #<compiled-function (&rest args) "...(51)" [intern symbol-name vos efs-key-obarray "tmp1" tmp1 qkey efs-fix-dir-path load "efs-vos" error "%s definition of %s is not defined by loading %s" apply args] 5> hell ...] 7) load-internal("efs" nil nil nil nil nil) load("efs" nil nil nil) apply(load ("efs" nil nil nil)) dired-handler-fn(load "efs" nil nil nil) load-internal("efs" nil nil nil nil nil) load("efs" nil nil nil) efs-file-handler-function(substitute-in-file-name "/ia:~/public_html/") substitute-in-file-name("/ia:~/public_html/") apply(substitute-in-file-name "/ia:~/public_html/") dired-handler-fn(substitute-in-file-name "/ia:~/public_html/") substitute-in-file-name("/ia:~/public_html/") read-file-name-2(file-name-history "Copy [-p] backup-cvs-work to: " "/etc/cron.scripts/" nil nil nil read-file-name-internal) read-file-name-1(file-name-history "Copy [-p] backup-cvs-work to: " "/etc/cron.scripts/" nil nil nil read-file-name-internal) read-file-name("Copy [-p] backup-cvs-work to: " "/etc/cron.scripts/") apply(read-file-name ("Copy [-p] backup-cvs-work to: " "/etc/cron.scripts/")) dired-mark-pop-up(nil copy ("backup-cvs-work") read-file-name "Copy [-p] backup-cvs-work to: " "/etc/cron.scripts/") dired-mark-read-file-name("Copy [-p] %s to: " "/etc/cron.scripts/" copy nil ("backup-cvs-work")) dired-do-create-files(copy dired-copy-file "Copy [-p]" nil ?C) dired-do-copy(nil) call-interactively(dired-do-copy)