--- a/netserver/newhwserv.hs	Thu Oct 09 20:36:53 2008 +0000
+++ b/netserver/newhwserv.hs	Thu Oct 09 21:00:42 2008 +0000
@@ -19,6 +19,7 @@
 	forkIO $ clientLoop cHandle cChan
 	atomically $ writeTChan acceptChan (ClientInfo cChan cHandle "" 0 "" False)
 	hPutStrLn cHandle "CONNECTED\n"
+	hFlush cHandle
 	acceptLoop servSock acceptChan