diff --git a/src/Web/Actor/Deliver.hs b/src/Web/Actor/Deliver.hs
index 26f0930..601e785 100644
--- a/src/Web/Actor/Deliver.hs
+++ b/src/Web/Actor/Deliver.hs
@@ -223,7 +223,7 @@ startDeliveryTheater headers micros manager logFunc dbRootDir = do
     -- We first add the sqlite3 extension as needed
     entries <- listDirectory dbRootDir
     for_ entries $ \ path ->
-        if "-wal-shm" `isSuffixOf` path || "-wal-wal" `isSuffixOf` path
+        if "-shm" `isSuffixOf` path || "-wal" `isSuffixOf` path
             then return ()
         else if takeExtension path == ".sqlite3"
             then return ()