problem with todays cvs emacs and planner

I upgraded emacs today and got problems with font lock.
Then I upgraded to the latest released muse and planner, and the
problem remains.

Will it help to upgrade to the development version?

backtrace:

Debugger entered--Lisp error: (wrong-type-argument symbolp (quote 
beginning-of-line))
  font-lock-compile-keywords(nil)
  font-lock-set-defaults()
  font-lock-mode-internal(t)
  font-lock-default-function(t)
  font-lock-mode()
  turn-on-font-lock()
  turn-on-font-lock-if-enabled()
  global-font-lock-mode-enable-in-buffers()
  run-hooks(after-change-major-mode-hook)
  run-mode-hooks(planner-mode-hook)
  (if (fboundp (quote run-mode-hooks)) (run-mode-hooks (quote 
planner-mode-hook)) (run-hooks (quote planner-mode-hook)))
  planner-mode()
  muse-mode-choose-mode()
  set-auto-mode-0(muse-mode-choose-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer 2006.10.12.muse> "~/Plans/2006.10.12.muse" nil 
nil "~/Plans/2006.10.12.muse" (2710720 64768))
  find-file-noselect("/home/joakim/Plans/2006.10.12.muse" nil nil nil)
  find-file-other-window("/home/joakim/Plans/2006.10.12.muse")
  muse-project-find-file("2006.10.12" "Plans" find-file-other-window nil)
  planner-find-file("2006.10.12" find-file-other-window)
  (progn (planner-find-file date (if planner-use-other-window ... ...)) (widen) 
(goto-char (point-min)) (run-hooks (quote planner-goto-hook)) t)
  (if (or (not just-show) (planner-page-exists-p date)) (progn 
(planner-find-file date ...) (widen) (goto-char ...) (run-hooks ...) t) (when 
(interactive-p) (message "No planner file for %s." date)) nil)
  planner-goto("2006.10.12")
  planner-goto-today()
  (progn (unless force-days (setq force-days ...)) (when (and ... ...) (setq 
force-days t)) (planner-goto-today) (let* (... ... ... ... ... ...) (when ... 
...) (when force-days ...) (if ... ... ...) (when planner-tasks-file-behavior 
...)))
  (if planner-use-day-pages (progn (unless force-days ...) (when ... ...) 
(planner-goto-today) (let* ... ... ... ... ...)) (planner-find-file (or 
planner-default-page planner-initial-page)))
  ad-Orig-plan(nil)
  plan(nil)
  call-interactively(plan)


-- 
Joakim Verona
http://www.verona.se