diff --git a/rtl/linux/gpm.pp b/rtl/linux/gpm.pp
index 4262b5bb0c..511ea798f6 100644
--- a/rtl/linux/gpm.pp
+++ b/rtl/linux/gpm.pp
@@ -531,7 +531,7 @@ begin
   {....................................... Connect to the control socket}
   if not gpm_flag then
     begin
-      gpm_fd:=socket(AF_UNIX,SOCK_STREAM,0);
+      gpm_fd:=fpsocket(AF_UNIX,SOCK_STREAM,0);
       if gpm_fd<0 then
         begin
 {           gpm_report(GPM_PR_ERR,GPM_MESS_SOCKET,strerror(errno));}