Hi Carsten,

The following commit causes an error when I call org-agenda:

,----
| commit 8c177dc832980bd8cf23fc2ae72b18e0b472b59e
| Author: Carsten Dominik <carsten.dominik@gmail.com>
| Date:   Fri Aug 14 17:18:14 2009 +0200
| 
|     Avoid text properties on elements in custom variables
`----

The problem does not occur when I set org-agenda-custom-commands to nil.

Here are my custom command settings:

--8<---------------cut here---------------start------------->8---
(setq org-agenda-custom-commands
      '(("p" "Printed agenda"
	 ((agenda ""
		  ((org-agenda-ndays 7)
		   (org-agenda-start-on-weekday nil)
		   (org-agenda-time-grid nil)
		   (org-agenda-repeating-timestamp-show-all t)
		   (org-agenda-prefix-format "  -->  %t %s")
		   (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline 'scheduled))))
	  (agenda "" 
		  ((org-agenda-ndays 1)
		   (org-agenda-sorting-strategy '(time-up tag-up))
		   (org-agenda-todo-keyword-format "[ ]")
		   (org-agenda-scheduled-leaders '("" ""))
		   (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline))
		   (org-agenda-prefix-format "%t %T %s")
		   ))
	  (agenda "" 
		  ((org-agenda-ndays 1)
		   (org-deadline-warning-days 7)
		   (org-agenda-time-grid nil)
		   (org-agenda-include-diary nil)
		   (org-agenda-todo-keyword-format "[ ]")
		   (org-agenda-scheduled-leaders '("" ""))
		   (org-agenda-overriding-header "Deadlines:")
		   (org-agenda-skip-function '(org-agenda-skip-entry-if 'notdeadline))
		   (org-agenda-prefix-format "%t %s")))
	  (todo "TODO|STARTED|NOW"
		((org-agenda-sorting-strategy '(tag-up priority-down))
		 (org-agenda-todo-ignore-with-date t)))
	  (todo "WAITING"))
	 ((org-agenda-with-colors nil)
	  (org-agenda-prefix-format "%T [ ]")
	  (org-agenda-todo-keyword-format "")
	  (org-agenda-include-all-todo nil)
	  (org-agenda-block-separator "---------------\n")
	  (org-agenda-remove-tags t)
	  (ps-number-of-columns 2)
	  (ps-print-header nil)
	  (ps-landscape-mode t))
	 ("~/storage/agenda/agenda.pdf"))
	("q" . "Searches")
	("qa" "Archive files" search ""
	 ((org-agenda-files (file-expand-wildcards "~/mystuff/org/.*.archive"))))
	("qn" "Notes files" search ""
	 ((org-agenda-files (file-expand-wildcards "~/mystuff/org/*.notes"))))
	("qw" "Website search" search ""
	 ((org-agenda-files (file-expand-wildcards "~/mystuff/website/*.org"))))
	("n" "Now" 
	 ((todo "NOW|STARTED")
	  ((org-agenda-todo-ignore-with-date nil))))
	("h" "Habits" 
	 ((agenda ""))
	 ((org-agenda-show-log t)
	  (org-agenda-include-diary nil)
	  (org-agenda-include-all-todo nil)
	  (org-agenda-ndays 1)
	  (org-agenda-start-on-weekday nil) 
	  (org-agenda-log-mode-items '(state))
	  (org-agenda-time-grid nil)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp ":DAILY:"))))
;; Today - daily tasks view
	("d" "Today" 
	 ((agenda "" ((org-agenda-ndays 1)
		      (org-agenda-include-all-todo nil)
		      ))
	  (alltodo "" ((org-agenda-sorting-strategy '(todo-state-up))
		       (org-agenda-todo-ignore-with-date t)))))
	("y" "Projects" 
	 ((agenda "" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "* PROJECT")))
		  ((org-agenda-include-diary nil)
		   (org-agenda-include-all-todo nil)
		   (org-agenda-time-grid nil)))
	  (todo "PROJECT" ((org-agenda-todo-ignore-deadlines-t)
			   (org-agenda-sorting-strategy '(priority-down))))))
	("R" "Review"
         ((stuck "")
	  (agenda ""
		  ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notdeadline))))
	  (agenda ""
		((org-agenda-ndays 1)
		 (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline))))
	  (todo "PROJECT" ((org-agenda-sorting-strategy '(todo-state-down priority-down))))
	  (todo "NOW|STARTED|TODO" ((org-agenda-sorting-strategy '(todo-state-down priority-down))))
	  (todo "WAITING")
	  (todo "MAYBE"))
	 ((org-agenda-todo-ignore-with-date t)
	  (org-agenda-todo-ignore-deadlines t)
	  (org-agenda-time-grid nil)
	  (org-agenda-include-all-todo nil)
	  (org-deadline-warning-days 360)))
	("c" "Schedule" agenda ""
	 ((org-agenda-ndays 7)
	  (org-agenda-start-on-weekday 1)
	  (org-agenda-time-grid nil)
	  (org-agenda-prefix-format " %12:t ")
	  (org-agenda-include-all-todo nil)
	  (org-agenda-repeating-timestamp-show-all t)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline 'scheduled))))
	("u" "Upcoming deadlines (6 months)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notdeadline))
	  (org-agenda-ndays 1)
	  (org-agenda-include-all-todo nil)
	  (org-deadline-warning-days 180)
	  (org-agenda-time-grid nil)))
))
--8<---------------cut here---------------end--------------->8---

And attached is the backtrace.