[cvs-nhc98] patch applied (hat): Fix buglet when (-) is used in a pattern but no expressions.