diff --git a/lisp/transient.el b/lisp/transient.el
index 4463a5f9..14f3160d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2067,9 +2067,9 @@ value.  Otherwise return CHILDREN as is."
 
 (defun transient--init-group (levels spec)
   (pcase-let ((`(,level ,class ,args ,children) (append spec nil)))
-    (and-let* ((- (transient--use-level-p level))
+    (and-let* (((transient--use-level-p level))
                (obj (apply class :level level args))
-               (- (transient--use-suffix-p obj))
+               ((transient--use-suffix-p obj))
                (suffixes (cl-mapcan (lambda (c) (transient--init-child levels c))
                                     (transient-setup-children obj children))))
       (progn ; work around debbugs#31840