transient--init-suffix: Fix previous commit

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/transient.el b/lisp/transient.el
index a56774c..2e83f94 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2512,7 +2512,7 @@ value.  Otherwise return CHILDREN as is.")
                           (plist-get args :level)
                           (and proto (oref proto level))
                           transient--default-child-level))
-               (args (plist-put (copy-list plist) :level level)))
+               (args (plist-put (copy-sequence args) :level level)))
     (when (transient--use-level-p level)
       (let ((obj (if (child-of-class-p class 'transient-information)
                      (apply class :parent parent args)