diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs
index f9b1f5000..d4a599f0a 100644
--- a/src/Dodge/Update/Input/InGame.hs
+++ b/src/Dodge/Update/Input/InGame.hs
@@ -138,7 +138,7 @@ tryPickupSelected k mpos w = do
     guard $ nfreeslots >= slotsneeded
     return $ case mpos of
         Just (0, j) ->
-            foldr (pickUpItemAt j 0) w (IS.toList xs)
+            foldr (pickUpItemAt j 0) w (map (_unNInt . _itID) itmstopickup)
                 & hud . hudElement . diSelection
                     ?~ ( 0
                        , j