diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index 22a464b..c9ac138 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -393,7 +393,7 @@ pullUnpickle p = do
 
 -- | Pulls a stanza (or stream error) from the stream.
 pullStanza :: TMVar Stream -> IO (Either XmppFailure Stanza)
-pullStanza = withStream' $ do
+pullStanza = withStream $ do
     res <- pullUnpickle xpStreamStanza
     case res of
         Left e -> return $ Left e