Fixed wheezy build.

1 files changed, 2 insertions, 2 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 1ab36cd6..efd790d0 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -998,10 +998,10 @@ main = runResourceT $ do
     installHandler sigINT (CatchOnce (atomically $ putTMVar quitVar True)) Nothing
 
     forkIO $ do
-        console <- atomically $ dupTChan (cwPresenceChan $ consoleWriter state)
+        let console = cwPresenceChan $ consoleWriter state
         fix $ \loop -> do
         what <- atomically
-            $ orElse (do (client,stanza) <- readTChan console
+            $ orElse (do (client,stanza) <- takeTMVar console
                          return $ do informClientPresence0 state Nothing client stanza
                                      loop)
                      (do readTMVar quitVar