[cvs-nhc98] patch applied (hat): Do not use `unsafePerformIO' inside an IO action.