diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 977210e9cc8..98421828bb9 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -2755,10 +2755,19 @@ eww-desktop-misc-data
 :dom, :source and :text properties."
   (let ((history (mapcar #'eww-desktop-data-1
                          (cons eww-data eww-history))))
-    (list :history (if eww-desktop-remove-duplicates
-                       (cl-remove-duplicates
-                        history :test #'eww-desktop-history-duplicate)
-                     history))))
+    (let ((posn eww-history-position) rval)
+      (list :history
+            (if eww-desktop-remove-duplicates
+                (prog1
+                    (setq
+                     rval (cl-remove-duplicates
+                           history :test #'eww-desktop-history-duplicate))
+                  (setq posn
+                        (cl-position
+                         (elt history eww-history-position)
+                         rval :test #'eww-desktop-history-duplicate)))
+              history)
+              :history-position posn))))

 (defun eww-restore-desktop (file-name buffer-name misc-data)
   "Restore an eww buffer from its desktop file record.
@@ -2772,7 +2781,8 @@ eww-restore-desktop
     (setq eww-history       (cdr (plist-get misc-data :history))
 	  eww-data      (or (car (plist-get misc-data :history))
 			    ;; backwards compatibility
-			    (list :url (plist-get misc-data :uri))))
+			    (list :url (plist-get misc-data :uri)))
+          eww-history-position (plist-get misc-data :history-position))
     (unless file-name
       (when (plist-get eww-data :url)
 	(cl-case eww-restore-desktop
@@ -2784,8 +2794,6 @@ eww-restore-desktop
     ;; .
     (current-buffer)))

-(add-to-list 'desktop-locals-to-save
-	     'eww-history-position)
 (add-to-list 'desktop-buffer-mode-handlers
              '(eww-mode . eww-restore-desktop))