diff -r f85243bf890e -r fa19f0579083 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Sun Dec 19 13:31:55 2010 -0500 +++ b/gameServer/HWProtoLobbyState.hs Sun Dec 19 13:33:45 2010 -0500 @@ -101,8 +101,8 @@ toAnswer (paramName, paramStrs) = AnswerThisClient $ "CFG" : paramName : paramStrs - answerFullConfig = map toAnswer (leftConfigPart ++ rightConfigPart) - (leftConfigPart, rightConfigPart) = partition (\(p, _) -> p /= "MAP") (Map.toList $ params jRoom) + answerFullConfig = map toAnswer ((Data.List.reverse . Data.List.sort $ leftConfigPart) ++ rightConfigPart) + (leftConfigPart, rightConfigPart) = partition (\(p, _) -> p == "MAP" || p == "MAPGEN") (Map.toList $ params jRoom) watchRound = if not $ gameinprogress jRoom then []