diff --git a/src/Render.hs b/src/Render.hs
index 76125a19d..f59b75bde 100644
--- a/src/Render.hs
+++ b/src/Render.hs
@@ -42,6 +42,8 @@ createLightMap pdata lightPoints nWalls nSils nsurfVs = do
     drawShader (_lightingWallShader pdata) nWalls
     -- draw foreground elements to set z buffer
     drawShader (_lightingSurfaceShader pdata) nsurfVs 
+
+    drawShader (_lightingOccludeShader pdata) nWalls
     -- for each of the lights: 
     -- stencil out the walls from this light's point of view
     -- draw fading lightmap circles on the floor