                (push (cons (float-time) (float-time org-clock-start-time))
                      times))
              (when (not (null times))
-               (setq headline
-                     (save-match-data
-                       (let ((heading (thing-at-point 'line t)))
-                         (string-match (format "^\\(\\*+\\)\\(?: +%s\\)?\\(?: %s\\)? +\\(.*?\\)[ \t]*\\(?::\\(?:[A-Za-z]+:\\)+\\)?$"
-                                               (regexp-opt org-todo-keywords-1)
-                                               org-priority-regexp)
-                                       heading)
-                         (match-string 4 heading))))
-               (push (cons headline times) task-clock-times)
+               (push (cons (point-marker) times) task-clock-times)
                (setq times nil))))))
       task-clock-times)))
 
 (defun db/org-timeline-in-range (tstart tend &optional files)
-  "Return list of clocked times from FILES between TSTART and TEND.  Each element in this list is of the form
-
-  (START END HEADLINE),
-
-where START, END, HEADLINE are as return from
-`db/org-clocking-time-in-range’, which see.  Entries in the resulting list are sorted by START, ascending."
+  "Return list of clocked times from FILES between TSTART and
+TEND.  Each element in this list is of the form
+
+  (START END MARKER),
+
+where START, END, MARKER are as return from
+`db/org-clocking-time-in-range’, which see.  Entries in the
+resulting list are sorted by START, ascending."
   (or files (setq files org-agenda-files))
   (let ((task-clock-times (cl-loop for file in files
                              when (file-exists-p file)

        (insert "|--|\n")
        (insert "| Start | End | Duration | Task |\n")
        (insert "|--|\n")
        (cl-dolist (entry timeline)
          (insert (format "| %s | %s | %s min | %s |\n"
                          (format-time-string "%Y-%m-%d %H:%m" (elt entry 0))
                          (format-time-string "%Y-%m-%d %H:%m" (elt entry 1))
                          (floor (/ (- (elt entry 1) (elt entry 0)) 60))
                          (elt entry 2))))
        (insert "|--|\n")
        (goto-char (point-min))
        (org-table-align))

                                                             (find-file-noselect file))
                                      (db/org-clocking-time-in-range tstart tend))))
        timeline)
    (dolist (headline task-clock-times)
      (dolist (clock-time (cdr headline))
        (push (list (car clock-time) (cdr clock-time) (car headline))
              timeline)))
    (setq timeline
