[Starting Gnus] directory-files: wrong number of arguments

[tinu]

Symptoms:

When starting Gnus, I get (wrong-number-of-arguments #<subr directory-files> 5)
I reported the same error before for PCL-CVS checkin.
Backtrace follows:

===========
<Backtrace>
  (ad-Orig-directory-files dirname full match nosort files-only)
  (setq ad-return-value (ad-Orig-directory-files dirname full match nosort 
files-only))
  (let (ad-return-value) (setq ad-return-value (ad-Orig-directory-files dirname 
full match nosort files-only)) (setq ad-return-value (cond ... ... ...)) 
ad-return-value)
  directory-files("/home/tinu/" t "^\\.newsrc-slave-" t)
  gnus-master-read-slave-newsrc()
  gnus-setup-news(nil nil nil)
  byte-code("„       „Æ ˆ‚OÇÈ!,HI(B\n!\f„
ƒ!Ê ˆƒ.Ë ,HLÍÎ(B\",HOÐ(B#,HGÑ(B!,HR(B ,HS(B!,HT(B 
,HUÖ(B!,HW(B ,HGØ(B!,HP‡(B" [dont-connect did-connect gnus-startup-file 
gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-group-quit 
gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file 
bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news 
nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups 
gnus-group-first-unread-group gnus-configure-windows group 
gnus-group-set-mode-line gnus-started-hook gnus-use-grouplens level] 4)
  gnus-1(nil nil nil)
  gnus(nil)
* call-interactively(gnus)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)
  recursive-edit()
  byte-code("Æ!,HG(B ,HH    (B!ˆ\nƒ?Éed\"Vƒ4eb,HJ¥(Byˆ`db,HJ¥
(BZyˆ\f`|ˆ)Ëcˆeb,HLÍ(B !,HN(B ˆ        @Ï=ƒKÐÑÒ\",HS(B 
,HLÔ(B!,HRÕÒÌÔ(B!ˆ(JV(B ˆ,Շ" [debugger-buffer debugger-args 
noninteractive debugger-batch-max-lines middlestart buffer-read-only 
pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message 
buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil 
recursive-edit standard-output inhibit-trace] 3)
  debug(error (void-variable browse-url))
  (setq vm-mouse-button-2 browse-url)
  eval((setq vm-mouse-button-2 browse-url))
  (let ((value ...)) (let (... ... ... ... end) (prog1 ... ... ...)))
  (let ((standard-output ...)) (let (...) (let ... ...)))
  eval-last-sexp-1(nil)
  (setq value (eval-last-sexp-1 eval-last-sexp-arg-internal))
  (let ((debug-on-error old-value)) (setq value (eval-last-sexp-1 
eval-last-sexp-arg-internal)) (setq new-value debug-on-error))
  (let ((old-value ...) new-value value) (let (...) (setq value ...) (setq 
new-value debug-on-error)) (unless (eq old-value new-value) (setq 
debug-on-error new-value)) value)
  (if (null eval-expression-debug-on-error) (eval-last-sexp-1 
eval-last-sexp-arg-internal) (let (... new-value value) (let ... ... ...) 
(unless ... ...) value))
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp)
  recursive-edit()
  byte-code("Æ!,HG(B ,HH    (B!ˆ\nƒ?Éed\"Vƒ4eb,HJ¥(Byˆ`db,HJ¥
(BZyˆ\f`|ˆ)Ëcˆeb,HLÍ(B !,HN(B ˆ        @Ï=ƒKÐÑÒ\",HS(B 
,HLÔ(B!,HRÕÒÌÔ(B!ˆ(JV(B ˆ,Շ" [debugger-buffer debugger-args 
noninteractive debugger-batch-max-lines middlestart buffer-read-only 
pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message 
buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil 
recursive-edit standard-output inhibit-trace] 3)
  debug(error (wrong-number-of-arguments #<subr directory-files> 5))
  (ad-Orig-directory-files dirname full match nosort files-only)
  (setq ad-return-value (ad-Orig-directory-files dirname full match nosort 
files-only))
  (let (ad-return-value) (setq ad-return-value (ad-Orig-directory-files dirname 
full match nosort files-only)) (setq ad-return-value (cond ... ... ...)) 
ad-return-value)
  directory-files("/home/tinu/" t "^\\.newsrc-slave-" t)
  gnus-master-read-slave-newsrc()
  gnus-setup-news(nil nil nil)
  byte-code("„       „Æ ˆ‚OÇÈ!,HI(B\n!\f„
ƒ!Ê ˆƒ.Ë ,HLÍÎ(B\",HOÐ(B#,HGÑ(B!,HR(B ,HS(B!,HT(B 
,HUÖ(B!,HW(B ,HGØ(B!,HP‡(B" [dont-connect did-connect gnus-startup-file 
gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-group-quit 
gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file 
bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-setup-news 
nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups 
gnus-group-first-unread-group gnus-configure-windows group 
gnus-group-set-mode-line gnus-started-hook gnus-use-grouplens level] 4)
  gnus-1(nil nil nil)
  gnus(nil)
* call-interactively(gnus)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)
</Backtrace>
===========

In GNU Emacs 21.3.50 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-11-06 on yak
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: POSIX
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: nil

Recent input:
<mouse-movement> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> C-l 
C-l C-p C-p C-n C-n C-n C-p C-p C-l C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-b C-b C-b C-b C-b C-b C-l C-l C-p C-x 
1 C-p C-p C-n C-p C-x b <return> C-p C-p C-p C-p C-p 
C-p C-p C-p C-n C-p C-p M-x C-g <help-echo> <help-echo> 
<menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
Wrote /home/tinu/.emacs
t
Mark set [2 times]
Reading /home/tinu/.newsrc.eld...
Reading active file from news.ethz.ch via nntp...
No new newsgroups
Entering debugger...
( [2 times]
call-interactively: End of buffer [3 times]
Quit