[fix bug causing name matching to fail
John Meacham <john@repetae.net>**20050919073214] hunk ./Name.hs 133
-parseName t name = if not (null ms) then toName t (concatInter "." ms, concatInter "." (ns ++ [last sn])) else toName t (concatInter "." (ns ++ [last sn])) where
+--parseName t name = if not (null ms) then toName t (concatInter "." ms, concatInter "." (ns ++ [last sn])) else toName t (concatInter "." (ns ++ [last sn])) where
+parseName t name = toName t (concatInter "." ms, concatInter "." (ns ++ [last sn])) where