random-elt does exactly what I want.
(btw.. small consistency issue in the syntax here?) rand-choice random-elt