         (merlin-goto-point (cdr (assoc 'start err)))
         (if merlin-pending-errors-overlays
             (delete-overlay (pop merlin-pending-errors-overlays)))
-        (merlin-create-overlay 'merlin-error-overlay 
-                               (merlin-make-bounds err)
-                               'next-error
-                               2)
-        (setq merlin-idle-point (point))
         (if merlin-pending-errors
             (message "%s (%d more errors, use %s to go to the next)" 
-                     (cdr (assoc 'message err))
                      (length merlin-pending-errors)
                      (substitute-command-keys "\\[merlin-next-error]")
                      )
-          (message "%s" (cdr (assoc 'message err)))
-          (merlin-highlight (merlin-make-bounds err) 'next-error)))
+          (message "%s" (cdr (assoc 'message err))))
+        (setq merlin-idle-point (point))
+        (merlin-highlight (merlin-make-bounds err) 'next-error))
     (next-error)))
 
 (defun merlin-remove-error-overlay ()

	 (forward-line 10))
       (merlin-tell-piece mode temp end))))

(defun merlin-tell-till-end-of-phrase (&optional no-retract)
  "Tell merlin the buffer until the end of the current phrase is met.
It proceeds by telling (with the end mode) each line until it returns true or until we are at the end of the buffer.

If NO-RETRACT is non-nil, don't retract to a valid position after telling.
"
  (let ((temp-point (point))
        (end-p nil))

            (end-of-line))))
    ;; End of buffer
    (if (not end-p)
        (merlin-send-command "tell" '("end" nil)))
    (merlin-check-for-errors view-errors-p)
    (setq merlin--point (merlin-get-position))
    (merlin-update-lock-zone-display)))

      
      
