Commit before making out and in placements have ids

src/Dodge/Room/Start.hs

@@ -5,6 +5,7 @@ import Dodge.LevelGen.Data
 import Dodge.Room.RunPast
 import Dodge.Room.Tanks
 import Dodge.Room.Containing
+import Dodge.Room.LongDoor
 --import Dodge.RoomLink
 --import Dodge.Data
 --import Dodge.Default
@@ -65,6 +66,7 @@ randomChallenges :: RandomGen g => State g (SubCompTree Room)
 randomChallenges = join $ takeOne
     [fmap (return . UseAll) doubleCorridorBarrels
     ,shootingRange
+    ,fmap (return . UseAll) twinSlowDoorChasers
     ]
 
 runPastStart :: RandomGen g => Int -> State g (SubCompTree Room)