diff --git a/app/Rendering.hs b/app/Rendering.hs
index 029e666..d428d36 100644
--- a/app/Rendering.hs
+++ b/app/Rendering.hs
@@ -42,7 +42,7 @@ renderCell world locMap name box y x scale =
     if boxWalls world box ! (y,x) then unit (boxColor box) scale wallChar
       else case Map.lookup (Location name' y x) locMap of
         Just n ->
-            if scale == 1
+            if scale < 9
                 then unit (boxColor (worldBoxes world Map.! n)) scale n 
                 else renderBox world locMap (worldBoxes world Map.! n) n
                         (scale `div` boxSize world box)
@@ -102,7 +102,7 @@ renderFlat locMap world =
       pad 2 1 2 1 $
       horizCat $
       intersperse (char borderAttr ' ')
-      [renderBox world locMap b n 1
+      [renderBox world locMap b n 2
       | (n,b) <- Map.assocs (worldBoxes world)
       , Original{} <- [boxType b]]