diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,8 +1,13 @@
 # Changelog for sandwich
 
+## Unreleased
+
+* Re-fix compatibility for base < 4.14.0.0
+
 ## 0.3.0.1
 
 * Fix openFileExplorerFolderPortable on macOS
+* Fix compatibility for base < 4.14.0.0
 
 ## 0.3.0.0
 
diff --git a/sandwich.cabal b/sandwich.cabal
--- a/sandwich.cabal
+++ b/sandwich.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           sandwich
-version:        0.3.0.1
+version:        0.3.0.2
 synopsis:       Yet another test framework for Haskell
 description:    Please see the <https://codedownio.github.io/sandwich documentation>.
 category:       Testing
diff --git a/src/Test/Sandwich/Waits.hs b/src/Test/Sandwich/Waits.hs
--- a/src/Test/Sandwich/Waits.hs
+++ b/src/Test/Sandwich/Waits.hs
@@ -68,7 +68,7 @@
     rethrowTimeoutExceptionWithCallStack :: (HasCallStack) => m a -> m a
     rethrowTimeoutExceptionWithCallStack = handleSyncOrAsync $ \(e@(SomeException inner)) ->
       if
-#if !MIN_VERSION_base(4,13,0)
+#if MIN_VERSION_base(4,14,0)
         | Just (_ :: Timeout) <- fromExceptionUnwrap e -> do
             throwIO $ Reason (Just (popCallStack callStack)) "Timeout in waitUntil"
         | Just (SyncExceptionWrapper (cast -> Just (SomeException (cast -> Just (SomeAsyncException (cast -> Just (_ :: Timeout))))))) <- cast inner -> do