--- a/netserver/hedgewars-server.hs	Mon Oct 20 12:58:16 2008 +0000
+++ b/netserver/hedgewars-server.hs	Mon Oct 20 15:59:05 2008 +0000
@@ -87,7 +87,6 @@
 
 
 main = withSocketsDo $ do
-	flags <- opts
-	putStrLn $ "Listening on port " ++ show (getPort flags)
-	serverSocket <- listenOn $ PortNumber (getPort flags)
+	putStrLn $ "Listening on port " ++ show (listenPort globalOptions)
+	serverSocket <- listenOn $ PortNumber (listenPort globalOptions)
 	startServer serverSocket `finally` sClose serverSocket