--- a/net/server.lua	Tue Mar 03 20:12:31 2009 +0000
+++ b/net/server.lua	Wed Mar 04 12:44:07 2009 +0000
@@ -333,7 +333,7 @@
                 send( socket, table_concat( bufferqueue, "", 1, bufferqueuelen ), 1, bufferlen )    -- forced send
             end
         end
-        shutdown( socket )
+        _ = shutdown and shutdown( socket )
         socket:close( )
         _sendlistlen = removesocket( _sendlist, socket, _sendlistlen )
         _socketlist[ socket ] = nil