diff --git a/Utility/LockFile/Windows.hs b/Utility/LockFile/Windows.hs
index 9f35ec1129..8e6c6d2905 100644
--- a/Utility/LockFile/Windows.hs
+++ b/Utility/LockFile/Windows.hs
@@ -70,13 +70,11 @@ openLock sharemode f = do
 		Right h -> Just h
 #else
 	h <- withTString (fromRawFilePath f') $ \c_f ->
-		c_CreateFile c_f gENERIC_READ sharemode security_attributes
+		c_CreateFile c_f gENERIC_READ sharemode (maybePtr Nothing)
 			oPEN_ALWAYS fILE_ATTRIBUTE_NORMAL (maybePtr Nothing)
 	return $ if h == iNVALID_HANDLE_VALUE
 		then Nothing
 		else Just h
-  where
-	security_attributes = maybePtr Nothing
 #endif
 
 dropLock :: LockHandle -> IO ()