diff -u ctcs.old/ctcs ctcs/ctcs
--- ctcs.old/ctcs	2008-04-26 17:18:06.000000000 -0300
+++ ctcs/ctcs	2008-08-05 15:13:19.000000000 -0300
@@ -131,8 +131,6 @@
 }
 
 socket(Server, PF_INET, SOCK_STREAM, $proto)	|| die "socket: $!";
-setsockopt(Server, SOL_SOCKET, SO_REUSEADDR,
-	pack("l", 1)) 	|| die "setsockopt: $!";
 bind(Server, sockaddr_in($port, INADDR_ANY))	|| die "bind: $!";
 listen(Server,SOMAXCONN) 				|| die "listen: $!";