--- a/gameServer/ClientIO.hs	Wed May 27 03:56:17 2009 +0000
+++ b/gameServer/ClientIO.hs	Wed May 27 15:29:30 2009 +0000
@@ -43,4 +43,5 @@
 
 	where
 		sendQuit e = writeChan coreChan $ ClientMessage (clientID, ["QUIT", show e])
-		isQuit answer = head answer == "BYE"
+		isQuit ("BYE":xs) = True
+		isQuit _ = False