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

        (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))

               (push (cons (float-time) (float-time org-clock-start-time))
                     times))
             (when (not (null 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 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)
