[better error message for nameName
John Meacham <john@repetae.net>**20061104043357] hunk ./Name/Name.hs 152
-    f _ = error "invalid Name"
+    f _ = error $ "invalid Name: " ++ (show $ toString a)