--- a/gameServer/ServerCore.hs	Thu Jun 18 17:48:06 2009 +0000
+++ b/gameServer/ServerCore.hs	Fri Jun 19 17:55:42 2009 +0000
@@ -57,10 +57,10 @@
 					return (serverInfo, clients, rooms)
 
 			TimerAction ->
-				liftM firstAway $ processAction
-						(0, serverInfo, clients, rooms)
-						PingAll
-			
+				liftM firstAway $
+					foldM processAction (0, serverInfo, clients, rooms)
+						[PingAll, StatsAction]
+
 
 	{-			let hadRooms = (not $ null rooms) && (null mrooms)
 					in unless ((not $ isDedicated serverInfo) && ((null clientsIn) || hadRooms)) $