diff --git a/Utility/DiskFree.hs b/Utility/DiskFree.hs
index 1f23ff5126..f13cb6efa8 100644
--- a/Utility/DiskFree.hs
+++ b/Utility/DiskFree.hs
@@ -33,6 +33,8 @@ getDiskFree path = withFilePath path $ \c_path -> do
 #else
 #ifdef mingw32_HOST_OS
 
+import Common
+
 import System.Win32.File
 
 getDiskFree :: FilePath -> IO (Maybe Integer)