diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 ## 0.1.11
 
+- Rescuing GHC 8.10, 9.0 and 9.2.
+
+## 0.1.11
+
 - Adding possibleMyStreams.
 
 ## 0.1.10
diff --git a/Network/QUIC/Connection/Stream.hs b/Network/QUIC/Connection/Stream.hs
--- a/Network/QUIC/Connection/Stream.hs
+++ b/Network/QUIC/Connection/Stream.hs
@@ -32,7 +32,7 @@
 possibleMyStreams Connection{..} = do
     Concurrency{..} <- readTVarIO myStreamId
     let StreamIdBase base = maxStreams
-    return (base - (currentStream .>>. 2))
+    return (base - (currentStream !>>. 2))
 
 waitMyNewStreamId :: Connection -> IO StreamId
 waitMyNewStreamId Connection{..} = get myStreamId
diff --git a/quic.cabal b/quic.cabal
--- a/quic.cabal
+++ b/quic.cabal
@@ -1,6 +1,6 @@
 cabal-version:      >=1.10
 name:               quic
-version:            0.1.11
+version:            0.1.12
 license:            BSD3
 license-file:       LICENSE
 maintainer:         kazu@iij.ad.jp