               (mapcar #'(lambda (x)
                           (propertize
                             (propertize
-                              (merlin--completion-full-entry-name arg prefix x)
+                              (merlin--completion-full-entry-name prefix x)
                               'merlin-meta
                               (merlin--completion-format-entry x))
                             'merlin-arg-type


(defun merlin--completion-data (ident)
  "Return the data for completion of IDENT, i.e. a list of pairs (NAME . TYPE)."
  (let* ((ident- (merlin--completion-split-ident ident))
         (suffix (cdr ident-))
         (prefix (car ident-))

    (when (and merlin-completion-dwim (not labels) (not entries))
      (setq data (merlin-send-command `(expand prefix ,ident at ,pos)))
      (setq entries (cdr (assoc 'entries data)))
      (setq-local dwimed t)
      (setq prefix ""))
    ; Concat results
    (let ((result (append labels entries)))
