--- command.lisp	(revision 212)
+++ command.lisp	(working copy)
@@ -300,6 +309,7 @@
                           :nickname nickname
                           :username username
                           :realname realname)))
+    #+sbcl (setf (sb-bsd-sockets::sockopt-keep-alive (usocket:socket socket)) t)
     (setf (user connection) user)
     (unless (null password)
       (pass connection password))