diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el
index d7c38b73432..2955e3f9c88 100644
--- a/test/lisp/emacs-lisp/cl-lib-tests.el
+++ b/test/lisp/emacs-lisp/cl-lib-tests.el
@@ -208,7 +208,7 @@
     (should (null (cl-ldiff l l)))
     (should (equal l (cl-ldiff l '())))
     ;; must be part of the list
-    (should (equal l (cl-ldiff l '(2 3))))
+    (should (equal l (cl-ldiff l (list 2 3))))
     (should (equal '(1) (cl-ldiff l (nthcdr 1 l))))
     ;; should return a copy
     (should-not (eq (cl-ldiff l '()) l))))
diff --git a/test/lisp/emacs-lisp/seq-tests.el b/test/lisp/emacs-lisp/seq-tests.el
index a8ed51e8e70..e84e50dda4c 100644
--- a/test/lisp/emacs-lisp/seq-tests.el
+++ b/test/lisp/emacs-lisp/seq-tests.el
@@ -386,8 +386,8 @@ Evaluate BODY for each created sequence.
    (should (same-contents-p (seq-union v1 v2)
                             '("a" "b" "c" "f" "e"))))
 
-  (let ((v1 '("a"))
-        (v2 '("a"))
+  (let ((v1 (list (make-string 1 ?a)))
+        (v2 (list (make-string 1 ?a)))
         (testfn #'eq))
    (should (same-contents-p (seq-union v1 v2 testfn)
                             '("a" "a")))))