diff --git a/Command/Recompute.hs b/Command/Recompute.hs
index a5a82b7028..44d89f6a33 100644
--- a/Command/Recompute.hs
+++ b/Command/Recompute.hs
@@ -108,6 +108,8 @@ start' o r si file key =
 			-- explains the problem.
 			Nothing -> True
 
+-- TODO When reproducible is not set, preserve the
+-- reproducible/unreproducible of the input key.
 perform :: RecomputeOptions -> Remote -> OsPath -> Key -> Remote.Compute.ComputeState -> CommandPerform
 perform o r file key oldstate = do
 	program <- Remote.Compute.getComputeProgram r