--- a/net/server_select.lua	Tue Mar 25 19:18:32 2014 +0100
+++ b/net/server_select.lua	Wed Apr 02 17:42:22 2014 +0100
@@ -402,6 +402,7 @@
 	handler.clientport = function( )
 		return clientport
 	end
+	handler.port = handler.clientport -- COMPAT server_event
 	local write = function( self, data )
 		bufferlen = bufferlen + #data
 		if bufferlen > maxsendlen then