diff --git a/lisp/lib/plist.el b/lisp/lib/plist.el
index d50c01423..15c4133cd 100644
--- a/lisp/lib/plist.el
+++ b/lisp/lib/plist.el
@@ -29,9 +29,10 @@
 ;;;###autoload
 (defun doom-plist-merge (from-plist to-plist)
   "Non-destructively merge FROM-PLIST onto TO-PLIST"
-  (let ((plist (copy-sequence from-plist)))
-    (while plist
-      (cl-callf plist-put to-plist (pop plist) (pop plist)))
+  (let ((from-plist (copy-sequence from-plist))
+        (to-plist (copy-sequence to-plist)))
+    (while from-plist
+      (cl-callf plist-put to-plist (pop from-plist) (pop from-plist)))
     to-plist))
 
 ;;;###autoload