--- a/netserver/newhwserv.hs	Wed Oct 08 15:57:35 2008 +0000
+++ b/netserver/newhwserv.hs	Wed Oct 08 18:25:08 2008 +0000
@@ -42,7 +42,7 @@
 sendAnswers [] _ clients _ = return clients
 sendAnswers ((handlesFunc, answer):answers) client clients rooms = do
 	let recipients = handlesFunc client clients rooms
-	putStrLn ("< " ++ (show answer) ++ " (" ++ (show $ length recipients) ++ " recipients)")
+	putStrLn ("< " ++ (show answer))
 
 	clHandles' <- forM recipients $
 		\ch -> Control.Exception.handle (\e -> putStrLn (show e) >> hClose ch >> return [ch]) $