--- a/netserver/hedgewars-server.hs	Mon Nov 10 19:44:54 2008 +0000
+++ b/netserver/hedgewars-server.hs	Tue Nov 11 15:44:27 2008 +0000
@@ -156,7 +156,7 @@
 			["MINUTELY"] -> do
 				currentTime <- getCurrentTime
 				let newServerInfo = serverInfo{
-						lastHourUsers = filter (\t -> currentTime `diffUTCTime` t > 3600) $ lastHourUsers serverInfo
+						lastHourUsers = filter (\t -> currentTime `diffUTCTime` t < 3600) $ lastHourUsers serverInfo
 						}
 				mainLoop newServerInfo acceptChan messagesChan clients rooms