            (err nil))
       (setq errors (remove nil (mapcar 'merlin--overlay-pending-error errors)))
       (setq err (merlin--error-at-position (point) errors))
-      (when err (message (merlin-chomp (cdr (assoc 'message err))))))))
+      (when err (message "%s" (merlin-chomp (cdr (assoc 'message err))))))))
 
 (defun merlin--overlay-next-property-set (point prop &optional limit)
   "Find next point where PROP is set (like next-single-char-property-change but ensure that prop is not-nil)."

  (merlin--acquire-buffer)
  (let* ((r (merlin-send-command `(extension enable (,name))))
         (failed (assoc 'failures r)))
    (when failed (message (cdr failed))))
  (merlin-error-reset))

(defun merlin-extension-disable (name)

    (unless (or err merlin-erroneous-buffer) (message "No errors"))
    (when err
      (goto-char (car err))
      (message "%s" (merlin-chomp (cdr (assoc 'message (cdr err)))))
      (merlin-highlight (cdr (assoc 'bounds (cdr err))) 'next-error))))

(defun merlin-error-delete-overlays ()
