       (merlin-tell-piece "struct" merlin-lock-point point)
       (merlin-flush-tell)
       (if (merlin-view-errors)
-	  (setq merlin-lock-point (point)))
+	  (setq merlin-lock-point (point))
+	(merlin-seek merlin-lock-point)
+	)
       ))
   (merlin-update-overlay)
   )

  (interactive)
  (merlin-update-point (point))
)

;; COMPLETION
(defun merlin-extract-complete (prefix l)
  "Parses and format completion results"

    (auto-complete-mode)
    (set (make-local-variable 'merlin-lock-point) (point-min))
    (setq ac-sources '(merlin-ac-source))
    (add-to-list 'after-change-functions 'merlin-edit)
    (set-process-query-on-exit-flag (merlin-get-process) nil)
    (merlin-parse)
    (if (> merlin-idle-delay 0.)
