diff --git a/ghcidOutput b/ghcidOutput
index d17983443..ce84523ae 100644
--- a/ghcidOutput
+++ b/ghcidOutput
@@ -1 +1 @@
-All good (597 modules, at 22:32:07)
+All good (597 modules, at 10:01:53)
diff --git a/src/Dodge/Data/DoubleTree.hs b/src/Dodge/Data/DoubleTree.hs
index d0ee3282d..b61f3fdbc 100644
--- a/src/Dodge/Data/DoubleTree.hs
+++ b/src/Dodge/Data/DoubleTree.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE StrictData #-}
+--{-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Dodge.Data.DoubleTree
   where
diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 37de99b3d..bfb4c9a77 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -102,12 +102,12 @@ setClickWorldPos u = fmap
 updateWorldEventFlags :: Universe -> Universe
 updateWorldEventFlags u =
     (uvWorld . worldEventFlags .~ mempty)
-        . updateInventoryPositioning
         $ foldr updateWorldEventFlag u (u ^. uvWorld . worldEventFlags)
 
 updateWorldEventFlag :: WorldEventFlag -> Universe -> Universe
 updateWorldEventFlag wef = case wef of
-    InventoryChange -> id -- TODO determine more precisely when the inventory does change
+    --InventoryChange -> id -- TODO determine more precisely when the inventory does change
+    InventoryChange -> updateInventoryPositioning
     CombineInventoryChange -> updateCombinePositioning
 
 maybeOpenTerminal :: Universe -> Universe