   (let* ((project (merlin--project-get))
          (failures (cdr project)))
     (unless (equal failures merlin--project-failures)
-      (message (mapconcat 'identity failures "\n"))
+      (message "%s" (mapconcat 'identity failures "\n"))
       (setq merlin--project-failures failures))))
 
 (defun merlin--acquire-buffer (&optional force)

  (unless (listp pkg) (setq pkg (list pkg)))
  (let* ((r (merlin-send-command (list 'find 'use pkg)))
         (failed (assoc 'failures r)))
    (when failed (message (cdr failed))))
  (merlin-error-reset))

(defun merlin--project-get ()

      (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
