 (defun merlin-seek (point)
   "Seek merlin's point to POINT."
   (let ((data 
-	 (merlin-get-return-field (merlin-send-command "seek" (list "position" (merlin-unmake-point point))))))
+	 (merlin-get-return-field (merlin-send-command "seek" (list "before" (merlin-unmake-point point))))))
     (merlin-make-point data)))
     
 (defun merlin-tell-piece (mode start end)

  (with-current-buffer merlin-type-buffer
    (funcall merlin-favourite-caml-mode)))
(define-minor-mode merlin-mode
  "Mode to use merlin tool inside OCaml tools."
  nil
  " merlin"
  :keymap merlin-mode-map
  (if merlin-mode 
      (if (and

      (if (not (merlin-is-long type))
          (progn 
            (message "%s" type)
            (if (and (not quiet) bounds)
                (merlin-create-overlay 'merlin-type-overlay bounds 'highlight "1 sec")))
        (when (not quiet)
          (display-buffer merlin-type-buffer)
