                                          (t "")))
                              (type (cdr (assoc 'type obj))))
                         (cons (if (stringp type) (concat type tail)
-                                (list type position tail))
+                                (list type position tail verbosity))
                               (merlin--make-bounds obj))))
                     types))
       (setq merlin-enclosing-offset -1)

      (car item)
    (with-demoted-errors "Error retrieving type enclosing: %S"
      (let* ((key (car item))
             (index (elt key 0))
             (position (elt key 1))
             (tail (elt key 2))
             (types (merlin/call "type-enclosing" "-position" position "-index" index))
             (obj (elt types index))
             (type (cdr (assoc 'type obj))))
        (setcar item (concat type tail)))

  (merlin--type-enclosing-reset)
  (let* ((merlin/verbosity-context t) ; increase verbosity level if necessary
         (position (merlin/unmake-point (point)))
         (verbosity (cdr-safe merlin--verbosity-cache))
         (types (merlin/call "type-enclosing" "-position" position "-index" 0)))
    (when types
      (setq merlin-enclosing-types
