diff --git a/src/Dodge/StartNewGame.hs b/src/Dodge/StartNewGame.hs
index 80643bade..a933beb8a 100644
--- a/src/Dodge/StartNewGame.hs
+++ b/src/Dodge/StartNewGame.hs
@@ -10,6 +10,7 @@ import Dodge.Save
 import Dodge.WorldLoad
 import LensHelp
 import System.Random
+import System.Directory
 
 startNewGameInSlot :: Int -> Universe -> Universe
 startNewGameInSlot slot u = startSeedGame slot i u
@@ -26,6 +27,7 @@ startSeedGame _ i u =
 startSeedGameConc :: Int -> PreloadData -> IO (Universe -> Maybe Universe)
 startSeedGameConc seed pdata = do
     w <- generateWorldFromSeed (pdata ^?! renderData) seed
+    createDirectoryIfMissing True "saveSlot"
     writeFile "saveSlot/seed" $ show seed
     return $
         Just