diff --git a/test/lisp/cus-edit-tests.el b/test/lisp/cus-edit-tests.el
index 3a788f19745..9ceab16e194 100644
--- a/test/lisp/cus-edit-tests.el
+++ b/test/lisp/cus-edit-tests.el
@@ -128,7 +128,6 @@
   ;; Simulate changing the value.
   (let* ((choice (widget-at))
          (args (widget-get choice :args))
-         (const-opt (car (widget-get choice :children)))
          (list-opt (nth 1 args)))
     (widget-put choice :explicit-choice list-opt)
     (widget-value-set choice (widget-default-get list-opt)))