Debugger entered--Lisp error: (args-out-of-range -1 0)
  add-text-properties(0 -1 (org-heading t) "")
  (let* ((category ...) (category-icon ...) (category-icon ...) (tag ...) time effort neffort (ts ...) (time-of-day ...) stamp plain s0 s1 s2 rtn srp l duration thecategory) (and (org-mode-p) buffer-file-name (add-to-list ... buffer-file-name)) (when (and dotime time-of-day) (when ... ... ...) (if s1 ...) (if s2 ...) (when ... ...) (when s2 ...)) (when (string-match ... txt) (if ... ... ...)) (when (org-mode-p) (setq effort ...) (when effort ...)) (when remove-re (while ... ...)) (add-text-properties 0 (1- ...) (quote ...) txt) (setq time (cond ... ... ...) extra (or ... "") category (if ... ... category) thecategory (copy-sequence category)) (if (string-match org-bracket-link-regexp category) (progn ... ...) (if ... ...)) (setq rtn (concat ... txt)) (remove-text-properties 0 (length rtn) (quote ...) rtn) (org-add-props rtn nil (quote org-category) (if thecategory ... category) (quote tags) (mapcar ... tags) (quote org-highest-priority) org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote duration) duration (quote effort) effort (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (quote dotime) dotime))
  (progn (if (string-match "^ +" txt) (setq txt ...)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort ... ... stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... buffer-file-name ...) (when ... ... ... ... ... ...) (when ... ...) (when ... ... ...) (when remove-re ...) (add-text-properties 0 ... ... txt) (setq time ... extra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove-text-properties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... org-highest-priority ... org-lowest-priority ... time-of-day ... duration ... effort ... neffort ... txt ... time ... extra ... dotime)))
  (unwind-protect (progn (if ... ...) (setq txt ...) (let* ... ... ... ... ... ... ... ... ... ... ... ...)) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ...) (set-match-data save-match-data-internal ...)))
  (save-match-data (if (string-match "^ +" txt) (setq txt ...)) (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort ... ... stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... buffer-file-name ...) (when ... ... ... ... ... ...) (when ... ...) (when ... ... ...) (when remove-re ...) (add-text-properties 0 ... ... txt) (setq time ... extra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove-text-properties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... org-highest-priority ... org-lowest-priority ... time-of-day ... duration ... effort ... neffort ... txt ... time ... extra ... dotime)))
  org-format-agenda-item("" "" "Diary" nil time)
  (setq x (org-format-agenda-item "" x "Diary" nil (quote time)))
  (lambda (x) (setq x (org-format-agenda-item "" x "Diary" nil ...)) (org-add-props x (text-properties-at ... x) (quote type) "diary" (quote date) date (quote face) (quote org-agenda-diary)))("")