--- a/netserver/Miscutils.hs	Wed Apr 30 16:50:28 2008 +0000
+++ b/netserver/Miscutils.hs	Wed Apr 30 19:44:54 2008 +0000
@@ -53,6 +53,6 @@
 			writeTVar state2 ol2
 			return res
 
-tselect :: [ClientInfo] -> STM (String, Handle)
-tselect = foldl orElse retry . map (\ci -> (flip (,) (handle ci)) `fmap` readTChan (chan ci))
+tselect :: [ClientInfo] -> STM (String, ClientInfo)
+tselect = foldl orElse retry . map (\ci -> (flip (,) ci) `fmap` readTChan (chan ci))