[cvs-nhc98] patch applied (hat): Bug fix for hat-observe pattern involving a data constructor in a