diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 196384c6e7..08ebd751bd 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -453,6 +453,8 @@ Archiving time is retained in the ARCHIVE_TIME node property."
 	(setq leader (match-string 0)
 	      level (funcall outline-level))
 	(setq pos (point-marker))
+        ;; Advance POS upon insertion in front of it.
+        (set-marker-insertion-type pos t)
 	(condition-case nil
 	    (outline-up-heading 1 t)
 	  (error (setq e (point-max)) (goto-char (point-min))))
diff --git a/lisp/org.el b/lisp/org.el
index c3354467e1..aae8ac82e1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7054,7 +7054,7 @@ When REMOVE is non-nil, remove the subtree from the clipboard."
        ;; is inserted and then promoted.
        (combine-change-calls beg beg
          (when (fboundp 'org-id-paste-tracker) (org-id-paste-tracker txt))
-         (insert-before-markers txt)
+         (insert txt)
          (unless (string-suffix-p "\n" txt) (insert "\n"))
          (setq newend (point))
          (org-reinstall-markers-in-region beg)