diff --git a/elisp/chronometrist.el b/elisp/chronometrist.el
index 717f946..a8cc0d9 100644
--- a/elisp/chronometrist.el
+++ b/elisp/chronometrist.el
@@ -1802,9 +1802,10 @@ Return value is either a list in the form
   "Function run when a new plist-group is added at the end of a
 `chronometrist-plist-group-backend' file."
   (with-slots (hash-table) backend
-    (-let [(date plist) (chronometrist-latest-date-records backend)]
-      (puthash date plist hash-table)
-      (chronometrist-add-to-task-list (plist-get plist :name) backend))))
+    (-let* (((record &as date . rest) (chronometrist-latest-date-records backend))
+            ((interval)               (chronometrist-record-intervals record)))
+      (puthash date rest hash-table)
+      (chronometrist-add-to-task-list (plist-get interval :name) backend))))
 ;; on-add:1 ends here
 
 ;; [[file:chronometrist.org::*on-modify][on-modify:1]]
diff --git a/elisp/chronometrist.org b/elisp/chronometrist.org
index ca1e5a7..aa73d45 100644
--- a/elisp/chronometrist.org
+++ b/elisp/chronometrist.org
@@ -2802,9 +2802,10 @@ Return value is either a list in the form
   "Function run when a new plist-group is added at the end of a
 `chronometrist-plist-group-backend' file."
   (with-slots (hash-table) backend
-    (-let [(date plist) (chronometrist-latest-date-records backend)]
-      (puthash date plist hash-table)
-      (chronometrist-add-to-task-list (plist-get plist :name) backend))))
+    (-let* (((record &as date . rest) (chronometrist-latest-date-records backend))
+            ((interval)               (chronometrist-record-intervals record)))
+      (puthash date rest hash-table)
+      (chronometrist-add-to-task-list (plist-get interval :name) backend))))
 #+END_SRC
 
 **** on-modify                                             :writer:method: