Use read-char instead of read-char-choice.