diff --git a/ghcidOutput b/ghcidOutput
index 97c804e05..d98a64403 100644
--- a/ghcidOutput
+++ b/ghcidOutput
@@ -1 +1 @@
-All good (594 modules, at 19:44:22)
+All good (594 modules, at 20:03:59)
diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs
index 89f0c1e65..3bef44906 100644
--- a/src/Dodge/Update/Input/InGame.hs
+++ b/src/Dodge/Update/Input/InGame.hs
@@ -286,11 +286,12 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do
     (mini,_) <- IS.minView xs
     if x < (k,mini)
         then do
-            _ <- ss ^? ix (mini - 1)
+            --_ <- ss ^? ix (mini - 1)
+            guard $ not . null . fst $ IM.split mini ss
             guard $ Just (k,mini-1) /= ab
             return $ shiftInvItemsUp k xs w
         else do
-            _ <- ss ^? ix (maxi + 1)
+            guard $ not . null . snd $ IM.split maxi ss
             guard $ Just (k,maxi+1) < bn
             return $ shiftInvItemsDown k xs w