diff --git a/pkgs/applications/networking/p2p/transgui/default.nix b/pkgs/applications/networking/p2p/transgui/default.nix
index a33f85551f3d..f047b630ec40 100644
--- a/pkgs/applications/networking/p2p/transgui/default.nix
+++ b/pkgs/applications/networking/p2p/transgui/default.nix
@@ -3,12 +3,12 @@ libX11, glib, gtk2, gdk_pixbuf, pango, atk, cairo, openssl }:
 
 stdenv.mkDerivation rec {
   name = "transgui-5.0.1-svn-r${revision}";
-  revision = "986";
+  revision = "988";
 
   src = fetchsvn {
     url = "https://svn.code.sf.net/p/transgui/code/trunk/";
     rev = revision;
-    sha256 = "0z83hvlhllm6p1z4gkcfi1x3akgn2xkssnfhwp74qynb0n5362pi";
+    sha256 = "1i6ysxs6d2wsmqi6ha10rl3n562brmhizlanhcfad04i53y8pyxf";
   };
 
   nativeBuildInputs = [ pkgconfig ];
@@ -27,6 +27,10 @@ stdenv.mkDerivation rec {
     substituteInPlace restranslator.pas --replace /usr/ $out/
   '';
 
+  patches = [
+    ./r988-compile-fix.patch
+  ];
+
   makeFlags = [
     "FPC=fpc"
     "PP=fpc"
diff --git a/pkgs/applications/networking/p2p/transgui/r988-compile-fix.patch b/pkgs/applications/networking/p2p/transgui/r988-compile-fix.patch
new file mode 100644
index 000000000000..fe5a04fee818
--- /dev/null
+++ b/pkgs/applications/networking/p2p/transgui/r988-compile-fix.patch
@@ -0,0 +1,22 @@
+diff --git a/utils.pas b/utils.pas
+index eb8b828..1ff2440 100644
+--- a/utils.pas
++++ b/utils.pas
+@@ -100,7 +100,7 @@ uses
+ {$ifdef CALLSTACK}
+   lineinfo2,
+ {$endif CALLSTACK}
+-  LazFileUtils, LazUtf8, StdCtrls, Graphics;
++  LazFileUtils, LazUtf8, StdCtrls, Graphics, FileUtil;
+ 
+ {$ifdef windows}
+ function FileOpenUTF8(Const FileName : string; Mode : Integer) : THandle;
+@@ -235,7 +235,7 @@ end;
+ 
+ function ParamStrUTF8(Param: Integer): utf8string;
+ begin
+-  Result:=FileUtil.ParamStrUTF8(Param);
++  Result:=ParamStrUTF8(Param);
+ end;
+ 
+ function ParamCount: integer;