However, if the car and cdr of the simple items are strings containing
grave-style quoting, e.g. as in the following:

(widget-choose "Title" '(("Use `a'" . "Use `a'") ("Use `b'" . "Use `b'")))

and this quoting is supposed to appear on evaluation as curve-style,
then something like the following patch seems to be required: