diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index 98c6e52..a20494a 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -120,11 +120,10 @@ xmppStream expectedTo = do
             Right r -> validateData r
 
     validateData (_, _, _, _, Nothing) = throwError $ StreamWrongLangTag Nothing
-    validateData (ver, from, to, i, Just lang)
+    validateData (ver, from, to, i, lang)
       | ver /= "1.0" = throwError $ StreamWrongVersion (Just ver)
       | isJust to && to /= expectedTo = throwError $ StreamWrongTo (Text.pack . show <$> to)
---      | lang /= expectedLang = throwError $ StreamWrongLangTag lang
-      | otherwise        = return (from, to, i, lang)
+      | otherwise = return (from, to, i, fromJust lang)
     xmppStreamFeatures :: StreamSink ServerFeatures
     xmppStreamFeatures = do
         e <- lift $ elements =$ CL.head