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

         (when i (aset branches i 0)))
       (cl-return)))))

;; Current coverage data vector, dynamically bound by ‘elisp/ert/edebug--enter’.
(defvar elisp/ert/coverage--vector)


BEFORE-INDEX is the index into ‘elisp/ert/frequency--vector’ for
the beginning of the form.  Return (before . BEFORE-INDEX)."
  (cl-check-type before-index natnum)
  (let ((data (elisp/ert/coverage--data before-index)))
    ;; Increment hit count.  We prefer doing that here because the beginning of
    ;; a form tends to be more interesting and the end, and we’d like to
    ;; increment the hit count for the first line of a form instead of the last.
