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

  (let* ((project (merlin--project-get))
         (failures (cdr project)))
    (unless (equal failures merlin--project-failures)
      (message (mapconcat 'identity failures "\n"))
      (setq merlin--project-failures failures))))

(defun merlin--acquire-buffer (&optional force)

      (progn
        (setq merlin-erroneous-buffer t)
        (when no-loc
          (mapcar (lambda (e) (message "%s" (cdr (assoc 'message e)))) no-loc))
        (when errors
          (merlin-transform-display-errors errors)
          (when view-errors-p
