[ensure all fields of a strict constructor get seq'ed. not just the first one.
John Meacham <john@repetae.net>**20061218130256] hunk ./DataConstructors.hs 475
-            f ((True,var):rs) con = eStrictLet var (EVar var) con
+            f ((True,var):rs) con = eStrictLet var (EVar var) (f rs con)