--- a/gameServer/Actions.hs	Fri Apr 10 19:51:44 2009 +0000
+++ b/gameServer/Actions.hs	Fri Apr 10 19:56:42 2009 +0000
@@ -96,8 +96,14 @@
 
 
 processAction (clID, serverInfo, clients, rooms) SendServerMessage = do
-	writeChan (sendChan $ clients ! clID) $ ["SERVER_MESSAGE", serverMessage serverInfo]
+	writeChan (sendChan $ clients ! clID) $ ["SERVER_MESSAGE", message serverInfo]
 	return (clID, serverInfo, clients, rooms)
+	where
+		client = clients ! clID
+		message = if clientProto client < 25 then
+			serverMessageForOldVersions
+			else
+			serverMessageForOldVersions
 
 
 processAction (clID, serverInfo, clients, rooms) (ProtocolError msg) = do