diff --git a/src/Dodge/ItEffect.hs b/src/Dodge/ItEffect.hs
index 9e9ed59e6..f46409d8f 100644
--- a/src/Dodge/ItEffect.hs
+++ b/src/Dodge/ItEffect.hs
@@ -27,7 +27,7 @@ doInvEffect = \case
     ItemCopierUpdate -> copierItemUpdate
     ItemReduceWarmTime -> \itm _ -> pointerToItem itm . itUse . heldDelay . warmTime
         %~ (max 0 . subtract 1)
-    ItemSetWarmTime x -> \itm _ -> pointerToItem itm . itUse . heldDelay . warmTime
+    ItemSetWarmTime x -> \itm _ -> pointerToItemID (_itID itm) . itUse . heldDelay . warmTime
         .~ x
 
 copierItemUpdate :: Item -> Creature -> World -> World