Since it only reads a single character, the cursor is unnecessary and unsightly in the prompt:

(read-char-choice " a - good\n b - bad\n c - ugly" '(?a ?b ?c))