Fix ticket:71

The reader conditionals in {{{NOT-MORE-CONTAGIOUS}}} were incorrrectly
handling the case when the second type was a double-float. It was
always returning T in that case, but this is wrong if the first type
is a double-double-float.