 	  (json-encode 
 	   (if args (append (list name) args) (list name)))
 	  "\n")))
-    (if merlin-debug (message string))
+    (if merlin-debug (merlin-debug (format "> %s" string)))
     (process-send-string (merlin-get-process) string)
     (merlin-wait-for-answer)
     merlin-result

	(elt ans 1)
      nil)))
  
(defun merlin-get-type (exp) 
  (let ((sexp (merlin-get-completion (merlin-ident-under-point))))
    (if (= (length (elt sexp 1)) 0)
	nil

  "The timer used to print the type of the expression under point")

;; UTILS

(defun merlin-debug (s)
  (with-current-buffer (merlin-make-buffer-name)
    (insert s)))

(defun merlin-compute-prefix (ident)
  "Computes the prefix of an identifier. The prefix of Foo.bar is Foo. and the prefix of bar is \"\""
  (let ((l (butlast (split-string ident "\\."))))
