               (timeline-tools-make-entry
                (timeline-tools-entry-start-time (-first-item cluster))
                (timeline-tools-entry-end-time (-last-item cluster))
-               (timeline-tools-entry-markers (-first-item cluster))))
+               (timeline-tools-entry-marker (-first-item cluster))))
             new-timeline)))
 
 (defun timeline-tools-remove-short-entries (timeline &optional threshold)

        (push (cdr clock-line) inverted-timeline)
        (push (car clock-line) inverted-timeline))

      (setq inverted-timeline (-partition 2 (rest (reverse inverted-timeline))))

      ;; This is inefficient, but see comment in
      ;; `timeline-tools-copy-clocklines’ for rationale.

  (save-mark-and-excursion
   ;; get actual entry from headline of line
   (end-of-line)
   (unless (looking-back " |$" nil)
     (user-error "Not in table"))
   (org-table-previous-field)
   (let ((entry (get-text-property (point) 'entry)))
     (unless entry
       (user-error "Not on valid row in timeline"))
     (unless (< 1 (length timeline-tools--current-timeline))
       (user-error "Cannot delete last line"))
     (setq-local timeline-tools--current-timeline
                 (timeline-tools-transform-timeline
                  (delq entry timeline-tools--current-timeline)))))
