diff --git a/pkgs/by-name/tr/transgui/package.nix b/pkgs/by-name/tr/transgui/package.nix
index 23286a131448..fb78b119b537 100644
--- a/pkgs/by-name/tr/transgui/package.nix
+++ b/pkgs/by-name/tr/transgui/package.nix
@@ -55,6 +55,9 @@ stdenv.mkDerivation rec {
 
   postPatch = ''
     substituteInPlace restranslator.pas --replace /usr/ $out/
+
+    # Fix build with lazarus 4.0, https://github.com/transmission-remote-gui/transgui/issues/1486
+    substituteInPlace main.pas --replace-warn "h <> INVALID_HANDLE_VALUE" "h >= 0"
   '';
 
   preBuild = ''