   (cl-check-type func symbol)
   (cl-check-type args list)
   (cl-check-type body function)
-  (let ((elisp/ert/coverage--vector (get func 'elisp/ert/coverage)))
+  (let ((elisp/ert/coverage--function func)
+        (elisp/ert/coverage--vector (get func 'elisp/ert/coverage)))
     (funcall body)))
 
 (defun elisp/ert/edebug--before (before-index)

                                 (elisp/ert/coverage--data-else-index data))))
        (cl-incf (aref branches branch-index)))))
  value)

(defun elisp/ert/write--coverage-report (coverage-dir buffers)
  "Write a coverage report to a file in COVERAGE-DIR.

      ;; yet.
      (`(before . ,before-index) (setq incrementp nil form-index before-index))
      (_ (setq incrementp t form-index after-index)))
    (let ((data (elisp/ert/coverage--data form-index)))
      (when incrementp
        ;; Increment line hit count, because that hasn’t happened yet in
        ;; ‘edebug-before’.
