       (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-locate ()
  "Locate the identifier under point"
  (interactive)
  (merlin-locate-pure (thing-at-point 'ocaml-atom)))

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

(defun merlin-goto-phrase (command indice)
  "Go to the phrase indicated by COMMAND to the end INDICE.
Returns the position."
  (let ((r (merlin-send-command (list 'boundary command))))
    (if (equal r 'null) nil
      (progn
        (goto-char (merlin-make-point (elt r indice)))
