diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 826b7879a..1adc92153 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-10-28  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-archive.el (org-archive-subtree): Keep archive after
+	archiving something.
+
 	* org-id.el (org-id-update-id-locations): Add archive files if
 	that is required by `org-id-extra-files'.
 
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index cdde30944..37be35576 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -304,12 +304,7 @@ this heading."
 
 	  ;; Save and kill the buffer, if it is not the same buffer.
 	  (when (not (eq this-buffer buffer))
-	    (save-buffer)
-	    ;; Check if it is OK to kill the buffer
-	    (unless
-		(or visiting
-		    (equal (marker-buffer org-clock-marker) (current-buffer)))
-	      (kill-buffer buffer)))
+	    (save-buffer))
 	  ))
       ;; Here we are back in the original buffer.  Everything seems to have
       ;; worked.  So now cut the tree and finish up.