diff --git a/Annex/ReplaceFile.hs b/Annex/ReplaceFile.hs
index 3af555d39d..7c42532acb 100644
--- a/Annex/ReplaceFile.hs
+++ b/Annex/ReplaceFile.hs
@@ -63,6 +63,7 @@ replaceFile' createdirectory file checkres action = withOtherTmp $ \othertmpdir
 	let basetmp = relatedTemplate' (P.takeFileName file)
 #else
 	let basetmp = toRawFilePath "t"
+	liftIO $ hPutStrLn stderr $ show ("replaceFile debug", file, P.takeFileName file, relatedTemplate' (P.takeFileName file))
 #endif
 	withTmpDirIn (fromRawFilePath othertmpdir) (toOsPath basetmp) $ \tmpdir -> do
 		let tmpfile = toRawFilePath tmpdir P.</> basetmp