--- acceptor-orig.lisp	2009-02-18 21:25:19.000000000 +0100
+++ acceptor.lisp	2009-08-12 14:03:17.000000000 +0200
@@ -238,6 +238,7 @@
 ;; general implementation
 
 (defmethod start ((acceptor acceptor))
+  (setf (acceptor-shutdown-p acceptor) nil)
   (start-listening acceptor)
   (let ((taskmaster (acceptor-taskmaster acceptor)))
     (setf (taskmaster-acceptor taskmaster) acceptor)