[make unsafe coerce set case type properly
John Meacham <john@repetae.net>**20060411031145] hunk ./E/Values.hs 187
-    f n ec@ECase {} t = (n,nx,id) where
+    f n ec@ECase {} t = (n,nx { eCaseType = t },id) where