Wrong regions of text objects

[dvzubarev]

Consider this simple Org file:

* tree
text
** subtree
subtree

Set the point on the first line (* t|ree), visually select this line pressing V and quit visual state with ESC.
Then move the point to the ** subtree and try to delete this subtree using a text object evil-org-a-subtree
(eval (apply #'evil-delete (evil-org-a-subtree))).

After that the buffer looks like:

* t

Looking into the code, I've found this function

(defun evil-org-select-an-element (element)
  "Select an org ELEMENT."
  (list (min (region-beginning) (org-element-property :begin element))
        (org-element-property :end element)))

Documentation of region-beginning: Return the integer value of point or mark, whichever is smaller.
Since in my case, mark has value smaller than value of point, the region returned by evil-org-select-an-element is wrong and includes not only subtree but outer tree as well.
I don't know what is rationale for using such an expression here (min (region-beginning) (org-element-property :begin element)).
If the point was to restrict the lower bound of an element to the user point, then one can replace (region-beginning) with (point) .
Another option just return (org-element-property :begin element).