[fix error message
John Meacham <john@repetae.net>**20061006035206] hunk ./E/Program.hs 56
-programSetDs ds prog | flint && any even (map (tvrIdent . fst) ds) = error $ "programSetDs: trying to set non unique top sevel name: " ++ show (map (tvrShowName . fst) ds)
+programSetDs ds prog | flint && any even (map (tvrIdent . fst) ds) = error $ "programSetDs: trying to set non unique top level name: " ++ show (map (tvrShowName . fst) ds)