diff -r 8735046fc698 -r 5be338fa4e2c netserver/newhwserv.hs
--- a/netserver/newhwserv.hs	Mon Jul 14 20:24:29 2008 +0000
+++ b/netserver/newhwserv.hs	Tue Jul 15 16:40:50 2008 +0000
@@ -17,6 +17,7 @@
 	cChan <- atomically newTChan
 	forkIO $ clientLoop cHandle cChan
 	atomically $ writeTChan acceptChan (ClientInfo cChan cHandle "" 0 "" False)
+	hPutStrLn cHandle "CONNECTED"
 	acceptLoop servSock acceptChan
 
 listenLoop :: Handle -> TChan String -> IO ()