diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs
index b4cf6d3..d73c5b3 100644
--- a/src/MainGame/WorldMap.hs
+++ b/src/MainGame/WorldMap.hs
@@ -537,7 +537,7 @@ drawTile ud ctx posanims pr pc row col img =
     ((realToFrac x :: Double) < 1280 &&
     (realToFrac (y - (74 - (realToFrac tileHeight :: CFloat))) :: Double) < 720)) $
       do
-        let (bef, beh) = L.partition delimiter (reverse sorted)
+        let (bef, beh) = L.partition delimiter sorted
         save ctx
         mapM_ drawAnim beh
         maybe (return ()) (draw ud x (y - 42) 64 74 fact)