diff -r 1a6e1aad58d6 -r 8df84ec62600 gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Fri Jan 24 09:48:46 2014 +0400
+++ b/gameServer/EngineInteraction.hs	Fri Jan 24 10:39:41 2014 +0400
@@ -95,8 +95,8 @@
         keys1, keys2 :: Set.Set B.ByteString
         keys1 = Set.fromList ["MAP", "MAPGEN", "MAZE_SIZE", "SEED", "TEMPLATE"]
         keys2 = Set.fromList ["AMMO", "SCHEME", "SCRIPT", "THEME"]
-        sane = Set.null (Map.keysSet mParams Set.\\ keys1)
-            && Set.null (Map.keysSet prms Set.\\ keys2)
+        sane = Set.null (keys1 Set.\\ Map.keysSet mParams)
+            && Set.null (keys2 Set.\\ Map.keysSet prms)
             && (not . null . drop 27 $ scheme)
             && (not . null . tail $ prms Map.! "AMMO")
         mapGenTypes = ["+rnd+", "+maze+", "+drawn+"]