1 files changed, 1 insertions, 1 deletions
diff --git a/Log.hs b/Log.hs
index 1bda5e1..1974b47 100644
--- a/Log.hs
+++ b/Log.hs
@@ -68,7 +68,7 @@ withSessionLogger subdir sessionid a = bracket setup cleanup go
 	setup = do
 		basedir <- logDir
 		let dir = maybe basedir (basedir </>) subdir
-		createDirectoryIfMissing False dir
+		createDirectoryIfMissing True dir
 		return $ sessionLogFile dir sessionid
 	cleanup logfile = putStrLn $ "** debug-me session was logged to " ++ logfile
 	go logfile = withFile logfile WriteMode (a . mkLogger)