The effect of intramuscular progesterone on the rate of cervical shortening.