From 876e3d0e041edf201ccc3c4daf738cec931ef137 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 27 Sep 2008 12:59:15 -0500
Subject: [PATCH] Fix start-server* hang if server already running

---
 basis/io/servers/connection/connection.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/io/servers/connection/connection.factor b/basis/io/servers/connection/connection.factor
index 1b8707fc8c..0bea30faa3 100755
--- a/basis/io/servers/connection/connection.factor
+++ b/basis/io/servers/connection/connection.factor
@@ -119,9 +119,9 @@ PRIVATE>
     dup secure-config>> [
         dup threaded-server [
             dup name>> [
-                listen-on [
-                    start-accept-loop
-                ] parallel-each
+                [ listen-on [ start-accept-loop ] parallel-each ]
+                [ ready>> raise-flag ]
+                bi
             ] with-logging
         ] with-variable
     ] with-secure-context ;