diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6bb833be..6caa231bf 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-02-27  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-archive.el (org-archive-subtree): Do not add 1 to level if
+	pasting at top level.
+
 	* org-bbdb.el: Improve documentation.
 
 2009-02-26  Carsten Dominik  <carsten.dominik@gmail.com>
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 26093677e..c1200ddb1 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -270,7 +270,7 @@ this heading."
 	    ;; No specific heading, just go to end of file.
 	    (goto-char (point-max)) (insert "\n"))
 	  ;; Paste
-	  (org-paste-subtree (org-get-valid-level level 1))
+	  (org-paste-subtree (org-get-valid-level level (and heading 1)))
 
 	  ;; Mark the entry as done
 	  (when (and org-archive-mark-done