diff --git a/Git/HashObject.hs b/Git/HashObject.hs
index 35031f20ae..85d027348b 100644
--- a/Git/HashObject.hs
+++ b/Git/HashObject.hs
@@ -49,6 +49,10 @@ hashFile hdl@(HashObjectHandle h _ _) file = do
 	-- So, make the filename absolute, which will work now
 	-- and also if git's behavior later changes.
 	file' <- absPath file
+	-- XXX windows crash debugging
+#ifndef mingw32_HOST_OS
+	hPutStrLn stderr $ show ("hashFile called on file", file, "abspath is", file')
+#endif
 	if newline `S.elem` file' || carriagereturn `S.elem` file
 		then hashFile' hdl file
 		else CoProcess.query h (send file') receive