--- a/gameServer/ConfigFile.hs	Sun Mar 06 21:54:37 2011 +0300
+++ b/gameServer/ConfigFile.hs	Sun Mar 06 21:55:44 2011 +0300
@@ -40,7 +40,7 @@
     serverConfig = Just cfg}
         = do
     let newCfg = foldl (\c (n, v) -> repConfig n (B.unpack v) c) cfg entries
-    writeConfig cfgFileName newCfg
+    writeConfig cfgFileName (repConfig "sv_latestProto" (show ver) cfg)
     where
         entries = [
             ("dbHost", dh)