bwplot: how to draw smooth curve through medians?

Dear R experts,

Is there an easy way how to combine the black dots (i.e., the medians) in the bwplot 

bwplot(voice.part ~ height, data=singer, xlab="Height (inches)")

by a smooth curve? 

Cheers,

Marius