Hello,

After a recent update, I no longer can build an agenda buffer. I put the
backtrace that I get at the end of this message. On the top of the trace
there is a call to org-entries-lessp, which looks like this:

(defun org-entries-lessp (a b)
  "Predicate for sorting agenda entries."
  ;; The following variables will be used when the form is evaluated.
  ;; So even though the compiler complains, keep them.
  (let ((ss org-agenda-sorting-strategy-selected))
    (org-dlet
	((timestamp-up    (and (org-em 'timestamp-up 'timestamp-down ss)
			       (org-cmp-ts a b "")))

Did something change recently around this code?

Thanks,

Alan

Debugger entered--Lisp error: (void-variable timestamp-up)
  org-entries-lessp(#("  Mobile:     TODO 2..." 0 14 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 14 18 (org-heading t fontified t face org-todo org-category "Mobile" tags ... org-priority-highest 65 org-priority-lowest 67 time-of-day nil duration nil breadcrumbs nil ...) 18 19 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 19 30 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 30 55 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 55 61 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) ...) #("  Mobile:     Au rez..." 0 14 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 14 165 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 165 167 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 167 173 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 173 175 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...)))
  sort((... ... ...) org-entries-lessp)
  org-agenda-finalize-entries((... ... ... ... ... ...) tags)
  org-tags-view(nil "REFILE")
  #f(compiled-function () #<bytecode 0x1589f0aa081d>)()
  funcall(#f(compiled-function () #<bytecode 0x1589f0aa081d>))
  (let ((org-agenda-overriding-header '"Tasks to Refile")) (funcall '#f(compiled-function () #<bytecode 0x1589f0aa081d>)))
  eval((let ((org-agenda-overriding-header '"Tasks to Refile")) (funcall '#f(compiled-function () #<bytecode 0x1589f0aa081d>))))
  org-agenda-run-series("daily review" (((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile"))) (tags-todo "-CANCELLED-@maybe/!-HOLD" ((org-agenda-overriding-header "Stuck Projects") (org-agenda-skip-function 'bh/skip-non-stuck-projects))) (agenda "" ((org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled) (org-agenda-span 'day) (org-agenda-overriding-header "Today"))) (agenda "" ((org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled) (org-agenda-span 6) (org-agenda-start-day "+1d") (org-agenda-overriding-header "Upcoming events"))) (tags-todo "-CANCELLED-@maybe-HOLD/!-HOLD-WAITING" ((org-agenda-overriding-header "Next Tasks") (org-agenda-skip-function 'bh/skip-project-habits-single-blocked-scheduled) (org-agenda-sorting-strategy '(todo-state-down effort-up category-keep)))) (tags-todo "-CANCELLED-@maybe-HOLD/!-HOLD-WAITING-REFILE" ((org-agenda-overriding-header "Tasks") (org-agenda-skip-function 'bh/skip-project-tasks-maybe) (org-agenda-todo-ignore-scheduled 'all) (org-agenda-sorting-strategy '(category-keep)))) (tags-todo "-CANCELLED-@maybe/!-HOLD" ((org-agenda-overriding-header "Projects") (org-agenda-skip-function 'as/skip-non-projects) (org-agenda-sorting-strategy '(category-keep)))) (tags-todo "-CANCELLED-@maybe/!+HOLD" ((org-agenda-overriding-header "Projects and Tasks On Hold") (org-agenda-sorting-strategy '(category-keep)))) (tags-todo "-CANCELLED-@maybe/!+WAITING" ((org-agenda-overriding-header "Waiting and Postponed Tasks") (org-agenda-skip-function 'bh/skip-stuck-projects) (org-agenda-todo-ignore-scheduled 'future))) (tags "-REFILE-@maybe/" ((org-agenda-overriding-header "Tasks to Archive") (org-agenda-skip-function 'bh/skip-non-archivable-tasks)))) nil))
  org-agenda(nil)
  funcall-interactively(org-agenda nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)