diff --git a/lsocket.pbi b/lsocket.pbi
index ca253f4..79e68b9 100644
--- a/lsocket.pbi
+++ b/lsocket.pbi
@@ -41,7 +41,7 @@ DeclareModule lsocket
   Declare WaitSocket(ServerSocket.i)                        ;Return new SocketID
   Declare ReadSocket(ClientSocket.i, *Buffer, Length.i)     ;Return Effective Read
   Declare WriteSocket(ClientSocket.i, *Buffer, Length.i)    ;Return Effective Writen 
-  
+  Declare CloseSocket(Socket.i)
 EndDeclareModule
 
 Module lsocket
@@ -82,18 +82,22 @@ Module lsocket
     ProcedureReturn ClientSID
   EndProcedure
   
-  Procedure ReadSocket(ClientSocket.i, *Buffer, Length.i)     ;Return Effective Read
+  Procedure ReadSocket(ClientSocket.i, Buffer, Length.i)     ;Return Effective Read
     Protected Effective.i
-    Effective = read_(ClientSocket, *Buffer, Length)
+    Effective = read_(ClientSocket, Buffer, Length)
     ProcedureReturn Effective
   EndProcedure
   
-  Procedure WriteSocket(ClientSocket.i, *Buffer, Length.i)    ;Return Effective Writen 
+  Procedure WriteSocket(ClientSocket.i, Buffer, Length.i)    ;Return Effective Writen 
     Protected Effective.i
-    Effective = write_(ClientSocket, *Buffer, Length)
+    Effective = write_(ClientSocket, Buffer, Length)
     ProcedureReturn Effective
   EndProcedure
   
+  Procedure CloseSocket(Socket.i)
+    close_(Socket)  
+  EndProcedure
+