diff --git a/src/Simplex/Chat/Archive.hs b/src/Simplex/Chat/Archive.hs
index 110c1dbda..fab53753c 100644
--- a/src/Simplex/Chat/Archive.hs
+++ b/src/Simplex/Chat/Archive.hs
@@ -84,6 +84,8 @@ deleteStorage = do
   removeFile chatDb
   removeFile agentDb
   mapM_ removePathForcibly filesPath
+  tmpPath <- readTVarIO =<< asks tempDirectory
+  mapM_ removePathForcibly tmpPath
 
 data StorageFiles = StorageFiles
   { chatDb :: FilePath,