       (if (< chunk 1000)
           (setq chunk (* chunk 2))))))
 
-(defun merlin-tell-to-point (point)
+(defun merlin-tell-to-point (&optional point)
   "Move the merlin point to around the given the current point.
 It proceeds as follows:
 


(defun merlin-sync-to-point (&optional point)
  "Makes sure the buffer is synchronized on merlin-side and centered around (point)."
  (lexical-let
      ((point (if point point (point))))
    (merlin-tell-to-point point)
    (merlin-seek-exact point)
    (merlin-sync-lock-zone-display)))

;;;;;;;;;;;;;;;;;;
;; ERROR REPORT ;;

(defun merlin-locate ()
  "Locate the identifier under point"
  (interactive)
  (let ((ident (thing-at-point 'ocaml-atom)))
    (when ident (merlin-locate-pure ident))))

;; I don't like it beginning by "ac" but
;; it is the only way I found to get it working (otherwise the completion
