--- a/gameServer/NetRoutines.hs	Thu Jul 09 00:56:26 2009 +0000
+++ b/gameServer/NetRoutines.hs	Thu Jul 09 14:36:41 2009 +0000
@@ -45,6 +45,7 @@
 					False
 					False
 					False
+					undefined
 					)
 
 		writeChan coreChan $ Accept newClient