 ;;;; Code:
 
 ;; json and cl are mandatory
+(require 'tq)
 (require 'cl)
 (require 'json)
 ;; auto-complete is not

(defvar merlin-local-process nil
  "The local merlin process."
)
(defvar merlin-process-users nil
  "Buffer that uses the process (local to a process buffer).")
(defvar merlin-process-last-user nil

  "Locate the identifier under point"
  (interactive)
  (let* ((ident (thing-at-point 'ocamlatom))
         (r (merlin-send-command "locate" (list ident "at" (merlin-unmake-point (point))))))
    (if (and r (listp r))
      (progn
        (push (cons (buffer-name) (point)) merlin-position-stack)
