Bug: CLOCKSUM works first time, fails second time when used in column view

Bug: CLOCKSUM works first time, fails second time when used in column view

[Joshua Hartshorne]

[-- Attachment #1: Type: text/plain, Size: 19327 bytes --]

I recently upgraded emacs and org-mode and now I'm getting a strange error
that looks more or less identical to this old report (
https://lists.gnu.org/archive/html/emacs-orgmode/2012-02/msg00181.html),
although their minimal example works for me.

I have my overall setup below, but here's the setup for column view:

------------------------------------------------------------------------(setq
org-columns-default-format "%60ITEM(Task) %6Effort(Estim){:}
%9CLOCKSUM(Clock){:} %9CLOCKSUM_T(Today){:}
%8ASSIGNED_EFFORT(Assigned){:} %8HELD_EFFORT(Held){:} %10SCHEDULED")
;Column View columns

(setq org-time-clocksum-format
      '(:hours "%d" :require-hours t :minutes ":%02d" :require-minutes t))
;sum in hours, not days.
(setq org-agenda-columns-add-appointments-to-effort-sum t);so appointments
are counted towards effort

------------------------------------------------------------------------


With a fairly basic stack of tasks like:

* Tasks
   :LOGBOOK:
   CLOCK: [2012-02-03 Fri 17:02]--[2012-02-03 Fri 18:02] =>  0:00
   :END:
** TODO Task A
   :LOGBOOK:
   CLOCK: [2012-02-03 Fri 17:02]--[2012-02-03 Fri 18:02] =>  0:00
   :END:
   :PROPERTIES:
   :Effort:   0:30
   :END:
** TODO Task B
   :PROPERTIES:
   :Effort:   1:00

   :END:

column view will work a few times and then suddenly it won't work anymore,
saying: "The CLOCKSUM property can not be set with `org-entry-put"

Deleting the top-level task (e.g., "Tasks") and replacing it will start the
process over.

------------------------------------------------------------------------

Emacs  : GNU Emacs 27.1 (build 1, x86_64-apple-darwin18.7.0, NS
appkit-1671.60 Version 10.14.6 (Build 18G95))
 of 2020-08-12
Package: Org mode version 9.4.4 (release_9.4.4-186-g7fa817 @
/Users/jkhartshorne/.emacs.d/straight/build/org/)

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-checklist)
 org-agenda-tags-column -102
 org-columns-default-format "%60ITEM(Task) %6Effort(Estim){:}
%6CLOCKSUM(Clock){:} %6CLOCKSUM_T(Today){:} %8ASSIGNED_EFFORT(Assigned){:}
%8HELD_EFFORT(Held){:} %10SCHEDULED"
 org-link-shell-confirm-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-agenda-tags-todo-honor-ignore-options t
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer
bh/clock-out-maybe)
 org-refile-targets '((refile-targets :todo . "TODO"))
 org-speed-commands-user '(("0" . ignore) ("1" . ignore) ("2" . ignore)
("3" . ignore) ("4" . ignore) ("5" . ignore)
  ("6" . ignore) ("7" . ignore) ("8" . ignore) ("9" . ignore) ("a" .
ignore) ("d" . ignore)
  ("h" . bh/hide-other)
  ("i" progn (forward-char 1) (call-interactively
'org-insert-heading-respect-content))
  ("k" . org-kill-note-or-show-branches) ("l" . ignore) ("m" . ignore) ("q"
. bh/show-org-agenda)
  ("r" . ignore) ("s" . org-save-all-org-buffers) ("w" . org-refile) ("x" .
ignore) ("y" . ignore)
  ("z" . org-add-note) ("A" . ignore) ("B" . ignore) ("E" . ignore) ("F" .
bh/restrict-to-file-or-follow)
  ("G" . ignore) ("H" . ignore) ("J" . org-clock-goto) ("K" . ignore) ("L"
. ignore) ("M" . ignore)
  ("N" . bh/narrow-to-org-subtree) ("P" . bh/narrow-to-org-project) ("Q" .
ignore) ("R" . ignore)
  ("S" . ignore) ("T" . bh/org-todo) ("U" . bh/narrow-up-one-org-level)
("V" . ignore) ("W" . bh/widen)
  ("X" . ignore) ("Y" . ignore) ("Z" . ignore))
 org-enforce-todo-dependencies 1
 org-clock-report-include-clocking-task t
 org-tag-alist '(("sdm" . 115) ("@BC" . 66) ("@MIT" . 77) ("@home" . 104)
("ThisTerm" . 116) ("household") ("aAI" . 97)
("aProgramming" . 112) ("aWriting" . 119) ("aBuying" . 98) ("REFILE" . 114))
 org-modules '(org-bbdb org-bibtex org-docview org-gnus org-habit org-info
org-irc org-mhe org-rmail org-w3m)
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent
org-depend-block-todo)
 org-mode-hook '(org-clock-load (lambda nil (define-key org-mode-map (kbd
"C-c C-x l") 'org-mac-grab-link))
(lambda nil (run-hooks 'prelude-org-mode-hook))
#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook
org-show-all append local] 5]
#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook
org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-clock-persist t
 org-yank-adjusted-subtrees t
 org-outline-path-complete-in-steps nil
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-startup-indented 1
 org-clock-history-length 23
 org-agenda-skip-timestamp-if-done t
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-agenda-time-grid '((daily today remove-match) (900 1100 1300 1500
1700) "      " "................")
 org-log-done t
 org-clock-in-resume t
 org-checklist-export-function 'org-export-as-ascii
 org-habit-following-days 1
 org-trigger-hook '(jkh/org-effort-to-hold jkh/org-effort-to-assigned
org-depend-trigger-todo)
 org-agenda-loop-over-headlines-in-active-region nil
 org-agenda-cmp-user-defined 'bh/agenda-sort
 org-catch-invisible-edits "show"
 org-occur-hook '(org-first-headline-recenter)
 org-agenda-mode-hook '((lambda nil
(org-defkey org-agenda-mode-map "W"
 (lambda nil (interactive) (setq bh/hide-scheduled-and-waiting-next-tasks
t) (bh/widen)))
)
(lambda nil (org-defkey org-agenda-mode-map "F"
'bh/restrict-to-file-or-follow))
(lambda nil (org-defkey org-agenda-mode-map "N" 'bh/narrow-to-subtree))
(lambda nil (org-defkey org-agenda-mode-map "U" 'bh/narrow-up-one-level))
(lambda nil (org-defkey org-agenda-mode-map "P" 'bh/narrow-to-project))
(lambda nil (org-defkey org-agenda-mode-map "V" 'bh/view-next-project)))
 org-log-into-drawer "LOGBOOK"
 org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING"
("WAITING" . t)) ("ASSIGNED" ("ASSIGNED" . t))
("HOLD" ("WAITING") ("HOLD" . t)) (done ("WAITING") ("HOLD"))
("TODO" ("WAITING") ("CANCELLED") ("HOLD") ("ASSIGNED"))
("DONE" ("WAITING") ("CANCELLED") ("HOLD")))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
 org-optimize-window-after-visibility-change)
 org-todo-keywords '((sequence "TODO(t)" "ASSIGNED(a@/!)" "HOLD(h)" "|"
"DONE(d)")
    (sequence "WAITING(w@/!)" "|" "CANCELLED(c@/!)"))
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
 org-habit-graph-column 50
 org-refile-allow-creating-parent-nodes 'confirm
 org-refile-use-outline-path t
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-confirm-shell-link-function 'yes-or-no-p
 org-stuck-projects '("" nil nil "")
 org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link) ("id" :follow org-id-open)
      ("message" :follow org-mac-message-open :export nil)
      ("x-devonthink-item" :follow org-devonthink-item-open :export nil)
      ("mac-outlook" :follow org-mac-outlook-message-open :export nil)
      ("skim" :follow org-mac-skim-open :export nil)
      ("addressbook" :follow org-mac-addressbook-item-open :export nil)
      ("x-together-item" :follow org-mac-together-item-open :export nil)
("file+sys") ("file+emacs")
      ("shell" :follow org-link--open-shell)
      ("news" :follow #[514 "\301\300\302 Q \"\207" ["news" browse-url ":"]
6 "\n\n(fn URL ARG)"])
      ("mailto" :follow #[514 "\301\300\302 Q \"\207" ["mailto" browse-url
":"] 6 "\n\n(fn URL ARG)"])
      ("https" :follow #[514 "\301\300\302 Q \"\207" ["https" browse-url
":"] 6 "\n\n(fn URL ARG)"])
      ("http" :follow #[514 "\301\300\302 Q \"\207" ["http" browse-url ":"]
6 "\n\n(fn URL ARG)"])
      ("ftp" :follow #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6
"\n\n(fn URL ARG)"])
      ("help" :follow org-link--open-help) ("file" :complete
org-link-complete-file)
      ("elisp" :follow org-link--open-elisp) ("doi" :follow
org-link--open-doi))
 org-agenda-skip-scheduled-if-done t
 org-capture-templates '(("t" "todo" entry (file+headline
org-default-notes-file "Tasks")
 "* TODO %^{Effort}p %?\n:LOGBOOK:\nCAPTURE_DATE: %U\n:END:" :prepend t)
("T" "Todo with paste" entry (file+headline org-default-notes-file "Tasks")
 "* TODO %^{prompt||%i|%c|%x} %^{Effort}p %?\n:LOGBOOK:\nCAPTURE_DATE:
%U\n:END:" :clock-in t
 :clock-resume t :prepend t)
("l" "Todo with link to current loc" entry (file+headline
org-default-notes-file "Tasks")
 "* TODO %^{Effort}p %?\n %a\n:LOGBOOK:\nCAPTURE_DATE: %U\n:END:" :prepend
t)
("m" "Meeting" entry (file+headline org-default-notes-file "Meetings")
 "* %? :Meeting:Notes:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in t
:clock-resume t :prepend t)
("M" "Meeting with paste" entry (file+headline org-default-notes-file
"Meetings")
 "* %^{prompt||%i|%c|%x} %? :Meeting:Notes:\n:LOGBOOK: \nCAPTURE_DATE:
%U\n:END:" :clock-in t
 :clock-resume t :prepend)
("p" "Presentation" entry (file+headline org-default-notes-file
"Presentations")
 "* %? :Presentation:Notes:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in
t :clock-resume t :prepend t)
("P" "Presentation with paste" entry (file+headline org-default-notes-file
"Presentations")
 "* %^{prompt||%i|%c|%x} %? :Presentation:Notes:\n:LOGBOOK: \nCAPTURE_DATE:
%U\n:END:" :clock-in t
 :clock-resume t :prepend t)
("s" "Socializing at Work" entry (file+headline org-default-journal-file
"Socializing at Work")
 "* %? \n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in t :clock-resume t
:prepend t)
("i" "Interruption" entry (file+headline org-default-notes-file
"Interruptions")
 "* %?  :Interruption:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in t
:clock-resume t :prepend t)
("b" "Breaks")
("bb" "Bathroom Break" entry (file+headline org-default-journal-file
"Bathroom Breaks")
 "* Bathroom %? :Break:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in t
:clock-resume t :prepend t)
("bd" "Drink/Snack Break" entry (file+headline org-default-journal-file
"Drink/Snack Breaks")
 "* drink or snack %? :Break:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:"
:clock-in t :clock-resume t :prepend
 t)
("bt" "Travel Break" entry (file+headline org-default-journal-file "Travel
Breaks")
 "* Some travel %? :Break:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in
t :clock-resume t :prepend t)
("bg" "Generic Break" entry (file+headline org-default-journal-file "Other
Breaks")
 "* Generic break %? :Break:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:"
:clock-in t :clock-resume t :prepend t)
("bm" "Meal Break" entry (file+headline org-default-journal-file "Meal
Breaks")
 "* A meal %? :Break:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in t
:clock-resume t :prepend t)
("c" "Chores" entry (file+headline org-default-journal-file "Household
Chores")
 "* Chores %? :Household:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :clock-in t
:clock-resume t :prepend t)
("r" "To read" entry (file+headline org-default-notes-file "Tasks")
 "* TODO %? :aReading:\n:LOGBOOK: \nCAPTURE_DATE: %U\n:END:" :prepend t)
)
 org-link-elisp-confirm-function 'yes-or-no-p
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
 ("DONE" :foreground "light slate grey" :weight bold :strike-through t)
 ("WAITING" :foreground "orange" :weight bold) ("ASSIGNED" :foreground
"orange" :weight bold)
 ("HOLD" :foreground "orange" :weight bold) ("SCHEDULED" :foreground
"orange" :weight bold)
 ("CANCELLED" :foreground "light slate grey" :weight bold :strike-through
t))
 org-habit-preceding-days 70
 org-agenda-columns-add-appointments-to-effort-sum t
 org-agenda-compact-blocks t
 org-agenda-dim-blocked-tasks nil
 org-clock-out-remove-zero-time-clocks t
 org-agenda-custom-commands '((" " "Agenda" agenda ""
      ((org-agenda-ndays 10) (org-deadline-warning-days 10)
(org-agenda-compact-blocks t)
(org-agenda-repeating-timestamp-show-all t)
(org-agenda-files '("~/Documents/orgmode/todo.org" "~/Documents/orgmode/
home.org")))
      )
     ("c" "Captured"
      ((tags-todo "REFILE"
((org-agenda-overriding-header "Task") (org-agenda-files
'("~/Documents/orgmode/notes.org"))))
(tags "+REFILE+Meeting"
((org-agenda-overriding-header "Meetings") (org-agenda-files
'("~/Documents/orgmode/notes.org"))))
(tags "+REFILE+Presentation"
((org-agenda-overriding-header "Presentations")
 (org-agenda-files '("~/Documents/orgmode/notes.org")))
)
(tags "+REFILE+Interruption"
((org-agenda-overriding-header "Interruptions")
 (org-agenda-files '("~/Documents/orgmode/notes.org")))
)
)
      )
     ("h" "Habits" tags-todo "STYLE=\"habit\""
      ((org-agenda-overriding-header "Habits")
(org-agenda-sorting-strategy '(todo-state-down effort-up category-keep))
(org-agenda-files '("~/Documents/orgmode/todo.org" "~/Documents/orgmode/
home.org")))
      )
     ("w" . "work")
     ("w " "Agenda" agenda ""
      ((org-agenda-ndays 10) (org-deadline-warning-days 10)
(org-agenda-compact-blocks t)
(org-agenda-repeating-timestamp-show-all t) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
      )
     ("wa" . "assigned to someone")
     ("wam" "Jesse Mu"
      ((tags-todo "pMu+ASSIGNED"
((org-agenda-overriding-header "Jesse Mu") (org-tags-match-list-sublevels
nil)
 (org-agenda-files '("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("war" "Jonathan Ravid"
      ((tags-todo "pRavid+ASSIGNED"
((org-agenda-overriding-header "Jon Ravid") (org-tags-match-list-sublevels
nil)
 (org-agenda-files '("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("was" "Lauren Skorb"
      ((tags-todo "pSkorb+ASSIGNED"
((org-tags-match-list-sublevels nil) (org-agenda-overriding-header "Lauren
Skorb")
 (org-agenda-files '("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("wp" . "Priorities")
     ("wpw" "Priorities for week"
      ((tags-todo "PRIORITY=\"A\""
((org-agenda-overriding-header "Priorities for week (work)")
 (org-agenda-prefix-format "[%(my-org-effort-sum-current-item-in-state
\"TODO\")] ")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("wpm" "Priorities for month"
      ((tags-todo "PRIORITY={A\\|C}"
((org-agenda-overriding-header "Priorities for month (work)")
 (org-agenda-prefix-format "[%(my-org-effort-sum-current-item-in-state
\"TODO\")] ")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("wpt" "Priorities for the term"
      ((tags-todo "+ThisTerm"
((org-agenda-overriding-header "Priorities for this term - (work)")
 (org-agenda-prefix-format "[%(my-org-effort-sum-current-item-in-state
\"TODO\")] ")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("wpa" "All unscheduled priority items"
      ((tags-todo "PRIORITY=\"A\""
((org-agenda-overriding-header "Unscheduled priorities for week")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
(tags-todo "PRIORITY={A\\|C}"
((org-agenda-overriding-header "Unscheduled priorities for month")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
(tags-todo "+ThisTerm"
((org-agenda-overriding-header "Unscheduled priorities for this term")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
)
      ((org-agenda-todo-ignore-scheduled 'future)))
     ("wd" "Upcoming deadlines next 30 days" agenda ""
      ((org-agenda-time-grid nil) (org-agenda-ndays 1)
(org-deadline-warning-days 30)
(org-agenda-entry-types '(:deadline)) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
      )
     ("ww" "Waiting or Assigned"
      ((tags-todo "WAITING"
((org-agenda-overriding-header "Waiting") (org-tags-match-list-sublevels
nil)
 (org-agenda-todo-ignore-scheduled 'future) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
(tags-todo "ASSIGNED"
((org-agenda-overriding-header "ASSIGNED") (org-tags-match-list-sublevels
nil)
 (org-agenda-todo-ignore-scheduled 'future) (org-agenda-files
'("~/Documents/orgmode/todo.org")))
)
)
      nil)
     ("l" . "life")
     ("l " "Agenda" agenda ""
      ((org-agenda-ndays 10) (org-deadline-warning-days 10)
(org-agenda-compact-blocks t)
(org-agenda-repeating-timestamp-show-all t) (org-agenda-files
'("~/Documents/orgmode/home.org")))
      )
     ("lp" . "Priorities")
     ("lpw" "Priorities for week"
      ((tags-todo "PRIORITY=\"A\""
((org-agenda-overriding-header "Priorities for week")
 (org-agenda-prefix-format "[%(my-org-effort-sum-current-item-in-state
\"TODO\")] ")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
)
      nil)
     ("lpm" "Priorities for month"
      ((tags-todo "PRIORITY={A\\|C}"
((org-agenda-overriding-header "Priorities for month (work)")
 (org-agenda-prefix-format "[%(my-org-effort-sum-current-item-in-state
\"TODO\")] ")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
)
      nil)
     ("lpt" "Priorities for the term"
      ((tags-todo "ThisTerm"
((org-agenda-overriding-header "Priorities for this term - (work)")
 (org-agenda-prefix-format "[%(my-org-effort-sum-current-item-in-state
\"TODO\")] ")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
)
      nil)
     ("lpa" "All unscheduled priority items"
      ((tags-todo "PRIORITY=\"A\""
((org-agenda-overriding-header "Unscheduled priorities for week")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
(tags-todo "PRIORITY={A\\|C}"
((org-agenda-overriding-header "Unscheduled priorities for month")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
(tags-todo "+ThisTerm"
((org-agenda-overriding-header "Unscheduled priorities for this term")
 (org-tags-match-list-sublevels nil) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
)
      ((org-agenda-todo-ignore-scheduled 'future)))
     ("ld" "Upcoming deadlines next 30 days" agenda ""
      ((org-agenda-time-grid nil) (org-agenda-ndays 1)
(org-deadline-warning-days 30)
(org-agenda-entry-types '(:deadline)) (org-agenda-files
'("~/Documents/orgmode/home.org")))
      )
     ("lw" "Waiting or Assigned"
      ((tags-todo "WAITING"
((org-agenda-overriding-header "Waiting") (org-tags-match-list-sublevels
nil)
 (org-agenda-todo-ignore-scheduled 'future) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
(tags-todo "ASSIGNED"
((org-agenda-overriding-header "ASSIGNED") (org-tags-match-list-sublevels
nil)
 (org-agenda-todo-ignore-scheduled 'future) (org-agenda-files
'("~/Documents/orgmode/home.org")))
)
)
      nil)
     ("f" "Friends and colleagues" agenda ""
      ((org-agenda-time-grid nil) (org-agenda-ndays 1)
(org-deadline-warning-days 30)
(org-agenda-sorting-strategy '(tag-up scheduled-up))
(org-agenda-entry-types '(:scheduled))
(org-agenda-files '("~/Documents/orgmode/hangingout.org")))
      )
     )
 org-agenda-sorting-strategy '((agenda habit-down time-up user-defined-up
effort-up category-keep) (todo category-up effort-up)
      (tags category-up effort-up) (search category-up))
 org-use-speed-commands t
 org-agenda-skip-deadline-if-done t
 org-default-notes-file "~/Documents/orgmode/notes.org"
 org-clock-persist-query-resume nil
 )

[-- Attachment #2: Type: text/html, Size: 27603 bytes --]

Re: Bug: CLOCKSUM works first time, fails second time when used in column view

[Ihor Radchenko]

Joshua Hartshorne <jkhartshorne@gmail.com> writes:

> column view will work a few times and then suddenly it won't work anymore,
> saying: "The CLOCKSUM property can not be set with `org-entry-put"

Sorry for the late reply.

I am unable to reproduce the issue with current main.

Best,
Ihor