The confidence interval calculation in prop.test appears to be  
incorrect when alternative="greater".  The upper limit is always set  
to 1.000.  Am I missing something?

 > total=c(250,250)
 > success=c(55,31)
 > prop.test(success,total,alternative="greater",correct=TRUE)

	2-sample test for equality of proportions with continuity correction

data:  success out of total
X-squared = 7.4289, df = 1, p-value = 0.003209
alternative hypothesis: greater
95 percent confidence interval:
0.03693065 1.00000000
sample estimates:
prop 1 prop 2
0.220  0.124


	[[alternative HTML version deleted]]

