diff --git a/src/Dodge/Layout.hs b/src/Dodge/Layout.hs
index 5d3688765..85ec08900 100644
--- a/src/Dodge/Layout.hs
+++ b/src/Dodge/Layout.hs
@@ -66,7 +66,7 @@ makePath = concat . map _rmPath . flatten
 
 wallsFromTree :: Tree Room -> IM.IntMap Wall
 --wallsFromTree t = createInnerWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
-wallsFromTree t = checkWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
+wallsFromTree t = checkWalls $ nubWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
 --wallsFromTree t = divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
 
 divideWall :: Wall -> [Wall]
diff --git a/src/Dodge/LevelGen.hs b/src/Dodge/LevelGen.hs
index 9f22c89ec..656acee5d 100644
--- a/src/Dodge/LevelGen.hs
+++ b/src/Dodge/LevelGen.hs
@@ -6,6 +6,7 @@ module Dodge.LevelGen
     , cutWalls
     , createInnerWalls
     , checkWalls
+    , nubWalls
     )
     where
 -- imports {{{