1 files changed, 3 insertions, 3 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index b895597f..1d527246 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -1186,13 +1186,13 @@ forkConnection sv xmpp k laddr pingflag src snk stanzas = do
                     let from = me -- Look it up from Server object
                                   -- or pass it with Connection event.
                         mid = Just "ping"
-                        ping = makePing namespace mid to from
-                    ping <- atomically $ wrapStanzaList ping
+                        ping0 = makePing namespace mid to from
+                    ping <- atomically $ wrapStanzaList ping0
                     mapM_ (atomically . Slotted.push slots (Just $ PingSlot))
                           ping
 #ifdef PINGNOISE
                     wlog ""
-                    CL.sourceList ping $$ prettyPrint $ case k of
+                    CL.sourceList ping0 $$ prettyPrint $ case k of
                         ClientKey {} -> "C<-Ping"
                         PeerKey {} -> "P<-Ping "
 #endif