diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index a1b8ed28cae..6687bec31f6 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3694,7 +3694,7 @@ example:
 (defun widget-color--choose-action (widget &optional _event)
   (list-colors-display
    nil nil
-   (let ((cbuf ,(current-buffer))
+   (let ((cbuf (current-buffer))
          (wp (widget-get widget :parent)))
      (lambda (color)
        (when (buffer-live-p cbuf)