         (merlin-send-command "tell" '("end" nil)))
     (merlin-check-for-errors view-errors-p)
     (setq merlin-lock-point (merlin-get-position))
-    (setq merlin-dirty-point nil)
     (merlin-update-lock-zone-display)))
 
       

  (if (not (merlin-is-last-user-p))
      (merlin-rewind))
  (save-excursion
    (setq merlin-lock-point (merlin-dirty-retract-to (point)))
    (merlin-tell-piece-split "struct" merlin-lock-point (point))
    (merlin-tell-till-end-of-phrase view-errors-p)))
  

  (if (and merlin-mode (< start merlin-lock-point))
      (progn
        (setq merlin-lock-point (merlin-retract-to start))
        (merlin-update-lock-zone-display))))

;; COMPLETION
(defun merlin-extract-complete (prefix l)
