emacs-wiki-journal-add-entry

Hi, folks.

After I update emacs-wiki today from the GNU Arch, I got the error
from emacs-wiki-journal-add-entry.  Before the update, there is no
problem.

Any idea?  Here is a backtrace.

Debugger entered--Lisp error: (wrong-type-argument stringp ("Computer" . 
"/home/yori/Blog/Computer"))
  string-match("^Category\\([A-Z][a-z]+\\)+$" ("Computer" . 
"/home/yori/Blog/Computer"))
  (if (string-match emacs-wiki-journal-category-regexp (car file)) (setq 
category-alist (cons file category-alist)))
  (lambda (file) (if (string-match emacs-wiki-journal-category-regexp ...) 
(setq category-alist ...)))((("Computer" . "/home/yori/Blog/Computer") 
("Contents" . "/home/yori/Blog/Contents") ("ComputerMemo" . 
"/home/yori/Blog/ComputerMemo") ("CategoryMisc" . 
"/home/yori/Blog/CategoryMisc") ("MyJournal" . "/home/yori/Blog/MyJournal")))
  mapc((lambda (file) (if (string-match emacs-wiki-journal-category-regexp ...) 
(setq category-alist ...))) ((("Computer" . "/home/yori/Blog/Computer") 
("Contents" . "/home/yori/Blog/Contents") ("ComputerMemo" . 
"/home/yori/Blog/ComputerMemo") ("CategoryMisc" . 
"/home/yori/Blog/CategoryMisc") ("MyJournal" . "/home/yori/Blog/MyJournal")) 
16800 36094))
  (progn (mapc (lambda ... ...) file-alist))
  (unwind-protect (progn (mapc ... file-alist)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (mapc (lambda ... ...) file-alist))
  (let ((file-alist ...) (category-alist nil)) (save-match-data (mapc ... 
file-alist)) category-alist)
  emacs-wiki-journal-category-alist()
  (let* ((directory emacs-wiki-journal-directory) (file-alist ...) 
(emacs-wiki-default-page emacs-wiki-journal-default-category)) 
(emacs-wiki-read-name file-alist "Category: "))
  emacs-wiki-journal-prompt-for-category-wiki()
  (let ((category ...) (heading ...)) (emacs-wiki-journal-prepare-journal) 
(emacs-wiki-journal-add category heading))
  emacs-wiki-journal-add-entry()
  call-interactively(emacs-wiki-journal-add-entry)

--
Yamagata Yoriyuki