diff --git a/docs/sockex/sockcli.pp b/docs/sockex/sockcli.pp
index 74778d044d..dc02bc3521 100644
--- a/docs/sockex/sockcli.pp
+++ b/docs/sockex/sockcli.pp
@@ -6,7 +6,7 @@ Program Client;
   sock_cli to connect to that socket
 } 
 
-uses Sockets,Linux;
+uses Sockets,BaseUnix;
         
 procedure PError(const S : string);
 begin
diff --git a/docs/sockex/socksvr.pp b/docs/sockex/socksvr.pp
index c2d0b9aaa4..aafa33d18d 100644
--- a/docs/sockex/socksvr.pp
+++ b/docs/sockex/socksvr.pp
@@ -6,7 +6,7 @@ Program server;
   sock_cli to connect to that socket
 } 
 
-uses Linux,Sockets;
+uses BaseUnix,Sockets;
 const
   SPath='ServerSoc';
   
@@ -28,7 +28,7 @@ begin
   S:=Socket (AF_UNIX,SOCK_STREAM,0);
   if SocketError<>0 then 
    Perror ('Server : Socket : ');
-  UnLink(SPath);
+  fpUnLink(SPath);
   if not Bind(S,SPath) then
    PError ('Server : Bind : ');
   if not Listen (S,1) then
@@ -45,5 +45,5 @@ begin
      Readln(Sin,Buffer);
      Writeln('Server : read : ',buffer);
    end;
-  Unlink(SPath);    
+  FPUnlink(SPath);    
 end.