--- a/netserver/newhwserv.hs	Mon Oct 13 14:52:29 2008 +0000
+++ b/netserver/newhwserv.hs	Mon Oct 13 18:37:59 2008 +0000
@@ -67,7 +67,7 @@
 	r <- atomically $ (Left `fmap` readTChan acceptChan) `orElse` (Right `fmap` tselect clients)
 	case r of
 		Left ci -> do
-			mainLoop servSock acceptChan (ci:clients) rooms
+			mainLoop servSock acceptChan (clients ++ [ci]) rooms
 		Right (cmd, client) -> do
 			putStrLn ("> " ++ show cmd)