diff --git a/src/drivers/simple-cmu.cl b/src/drivers/simple-cmu.cl
index c5d23d9..780abb1 100644
--- a/src/drivers/simple-cmu.cl
+++ b/src/drivers/simple-cmu.cl
@@ -87,7 +87,6 @@
 #+MP
 (defun http-listener (port server)
   (let ((fd (ext:create-inet-listener port)))
-    (unless fd (error "Cannot bind port ~D." port))
     (unwind-protect
 	 (progn
 	   (setf (process-name *current-process*)
@@ -128,3 +127,4 @@
 #+MP
 (defun initialize-clash (&optional (idle-process mp::*initial-process*))
   (setf mp::*idle-process* idle-process))
+