diff --git a/lisp/org.el b/lisp/org.el
index b51b1f4d3..34f795904 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4751,6 +4751,8 @@ Otherwise, these types are allowed:
    (let ((case-fold-search nil)
 	 (re (concat org-outline-regexp-bol ".*:" org-archive-tag ":")))
      (goto-char beg)
+     ;; Include headline point is currently on.
+     (beginning-of-line)
      (while (and (< (point) end) (re-search-forward re end t))
        (when (member org-archive-tag (org-get-tags))
 	 (org-flag-subtree t)