diff --git a/src/Dodge/Event/Keyboard.hs b/src/Dodge/Event/Keyboard.hs
index 0454e8d86..d5eccb071 100644
--- a/src/Dodge/Event/Keyboard.hs
+++ b/src/Dodge/Event/Keyboard.hs
@@ -86,7 +86,7 @@ spaceAction w = if _carteDisplay w
         _ -> w & inventoryMode .~ TopInventory
   where
     theLoc = fst (_seenLocations w IM.! _selLocation w) w
-    updateTopCloseObject i = closeActiveObjects %~ ( Right (_buttons w IM.! i) : ) . tail 
+    updateTopCloseObject i w' = w' & closeActiveObjects %~ ( Right (_buttons w' IM.! i) : ) . tail 
 
 pauseGame :: World -> World
 pauseGame w = w {_menuLayers = [PauseMenu]}