                             (fstar-issue-col-to issue)))
          (overlay (make-overlay from (max to (1+ from)) (current-buffer) t nil)))
     (overlay-put overlay 'fstar-subp-issue t)
-    (overlay-put overlay 'face 'fstar-subp-overlay-issue-face)
-    (overlay-put overlay 'help-echo (fstar-issue-message issue))
+    (overlay-put overlay 'face (fstar-subp-issue-face issue))
+    (overlay-put overlay 'help-echo #'fstar-subp--help-echo)
+    (overlay-put overlay 'fstar-subp-message (fstar-issue-message issue))
     (overlay-put overlay 'modification-hooks '(fstar-subp-remove-issue-overlay))
     (when (fboundp 'pulse-momentary-highlight-region)
       (pulse-momentary-highlight-region from to))))
 
 (defun fstar-subp-highlight-issues (issues)
-  "Highlight ISSUES whose name match that of the current buffer."
-  (fstar-assert issues)
+  "Highlight ISSUES."
   (mapcar #'fstar-subp-highlight-issue issues))
 
 (defun fstar-subp-jump-to-issue (issue)

  "Face used to highlight processed lax-checked sections of the buffer."
  :group 'fstar)

(defface fstar-subp-overlay-issue-face
  '((t :underline (:color "red" :style wave)))
  "Face used to highlight processed sections of the buffer."
  :group 'fstar)

(defvar fstar-subp-debug nil

  "Return non-nil if OVERLAY is an fstar-subp issue overlay."
  (overlay-get overlay 'fstar-subp-issue))

(defun fstar-subp-issue-overlays ()
  "Find all -subp issues overlays in the current buffer."
  (-filter #'fstar-subp-issue-overlay-p (overlays-in (point-min) (point-max))))

(defun fstar-subp-issue-overlays-at (pt)
  "Find all -subp issues overlays at point PT."
  (-filter #'fstar-subp-issue-overlay-p (overlays-at pt t)))

(defun fstar-in-comment-p ()
  "Return non-nil if point is inside a comment."
