diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index c7d51e6fa..65769d99f 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6986,7 +6986,15 @@ Negative selection means regexp must not match for selection of an entry."
   (interactive (list (let ((org-read-date-prefer-future
 			    (eval org-agenda-jump-prefer-future)))
 		       (org-read-date))))
-  (org-agenda-list nil date))
+  (let ((org-agenda-sticky-orig org-agenda-sticky)
+	org-agenda-sticky)
+    (org-agenda-list nil date)
+    (setq org-agenda-sticky org-agenda-sticky-orig
+	  org-agenda-this-buffer-is-sticky org-agenda-sticky))
+  (let ((inhibit-read-only t))
+    (add-text-properties (point-min) (point-max)
+			 `(org-last-cmd
+			   (org-agenda-list nil ,date)))))
 
 (defun org-agenda-goto-today ()
   "Go to today."