diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 869dfc33e..276676dad 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -98,8 +98,10 @@ functionalUpdate cfig w = checkEndGame
     $ updateCloseObjects w
 
 zoneClouds :: World -> World
-zoneClouds w = w & clZoning %~ \zn ->
-    foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty) (_clouds w)
+zoneClouds w = w 
+    & clZoning . znObjects .~ mempty
+    & clZoning %~ \zn ->
+        foldl' (flip $ updateZoning (:)) zn (_clouds w)
     --runIdentity (S.fold_ (flip $ updateZoning (:)) (zn & znObjects .~ mempty) id (_clouds w))
 
 updateWorldSelect :: World -> World