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

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

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


