--- protocol.lisp	(revision 212)
+++ protocol.lisp	(working copy)
@@ -339,7 +339,7 @@
                         (declare (ignore c))
                         (invoke-restart 'continue))))
                 (read-message-loop connection)))))
-    (let ((name (format nil "irc-hander-~D" (incf *process-count*))))
+    (let ((name (format nil "irc-handler-~D" (incf *process-count*))))
       (start-process #'do-loop name))))

 (defun stop-background-message-handler (process)