diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 797728b45..adcefad80 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6207,18 +6207,15 @@ If this information is not given, the function uses the tree at point."
     (let* ((marker (or (org-get-at-bol 'org-hd-marker)
 		       (org-agenda-error)))
 	   (buffer (marker-buffer marker))
-	   (pos (marker-position marker))
-	   (rfloc (or rfloc
-		      (org-refile-get-location
-		       (if goto "Goto: " "Refile to: ") buffer
-		       org-refile-allow-creating-parent-nodes))))
+	   (pos (marker-position marker)))
       (with-current-buffer buffer
 	(save-excursion
 	  (save-restriction
 	    (widen)
 	    (goto-char marker)
-	    (org-remove-subtree-entries-from-agenda)
-	    (org-refile goto buffer rfloc)))))))
+	    (org-refile goto buffer rfloc)
+	    (with-current-buffer "*Org Agenda*"
+	      (org-agenda-redo))))))))
 
 (defun org-agenda-open-link (&optional arg)
   "Follow the link in the current line, if any.