Fixed To address on pongs to client

1 files changed, 1 insertions, 1 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index bfaaa751..6f834c25 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -839,7 +839,6 @@ xmppInbound sv xmpp k laddr pingflag stanzas output donevar = doNestingXML $ do
                           , xmppTellPeerHisName xmpp k
                           )
     me <- liftIO tellmyname
-    you <- liftIO tellyourname
     withXML $ \begindoc -> do
     when (begindoc==EventBeginDocument) $ do
     whenJust nextElement $ \xml -> do
@@ -872,6 +871,7 @@ xmppInbound sv xmpp k laddr pingflag stanzas output donevar = doNestingXML $ do
                               , stanzaOrigin = NetworkOrigin k output
                               }
                 ioWriteChan stanzas s
+          you <- liftIO tellyourname
           flip (maybe $ unrecog) dispatch $ \dispatch -> 
             case dispatch of
               -- Checking that the to-address matches this server.