diff --git a/tests.lisp b/tests.lisp
index af366d7654c89bc01abe287cfc536296f6dca298..605fc66a4d0ef98919965c58cbaff8b7a08d1d3d 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -870,7 +870,7 @@
    t))
 
 (deftest delete-from-plist.1
-    (let ((orig '(a 1 b 2 c 3 d 4)))
+    (let ((orig '(a 1 b 2 c 3 d 4 d 5)))
       (list (delete-from-plist (copy-list orig) 'a 'c)
             (delete-from-plist (copy-list orig) 'b 'd)
             (delete-from-plist (copy-list orig) 'b)
@@ -880,10 +880,10 @@
             (delete-from-plist (copy-list orig) 'a 'b 'c 'd 'x)
             (equal orig (delete-from-plist orig))
             (eq orig (delete-from-plist orig))))
-  ((b 2 d 4)
+  ((b 2 d 4 d 5)
    (a 1 c 3)
-   (a 1 c 3 d 4)
-   (b 2 c 3 d 4)
+   (a 1 c 3 d 4 d 5)
+   (b 2 c 3 d 4 d 5)
    (a 1 b 2 c 3)
    nil
    nil