                              (vector target-file target-line target-bol cnum))
                        (save-excursion
                          (setq node (caml-types-find-location
-                                     target-pos () caml-types-annotation-tree))
+                                     target-pos () target-tree))
                          (set-buffer caml-types-buffer)
                          (erase-buffer)
                          (cond

         (target-file (file-name-nondirectory (buffer-file-name)))
         (target-date (nth 5 (file-attributes target-file))))
    (unless (and caml-types-annotation-tree
                 (not (caml-types-date< caml-types-annotation-date type-date)))
      (if (and type-date target-date (caml-types-date< type-date target-date))
          (error (format "%s is more recent than %s" target-file type-file)))

        (if (and (equal target-buf (current-buffer))
                 (setq left (caml-types-get-pos target-buf (elt node 0))
                       right (caml-types-get-pos target-buf (elt node 1)))
                 (<= left pos) (> right pos)
                 )
            (setq start (min start left)
                  end (max end right))
