@@ -90,7 +90,7 @@ moduleToJs (Module coms mn imps exps foreigns decls) foreign_ =
9090 go :: M.Map ModuleName ModuleName -> [Ident] -> [ModuleName] -> M.Map ModuleName ModuleName
9191 go acc used (mn' : mns') =
9292 let mni = Ident $ runModuleName mn'
93− in if mni `elem` used
93+ in if mn' /= mn && mni `elem` used
9494 then let newName = freshModuleName 1 mn' used
9595 in go (M.insert mn' newName acc) (Ident (runModuleName newName) : used) mns'
9696 else go (M.insert mn' mn' acc) (mni : used) mns'