Let the server start before trying to clean it up

diff --git a/basis/io/servers/connection/connection.factor b/basis/io/servers/connection/connection.factor
index e16f94e5056530b95ba6e7ab8741878df718e0aa..861a621de4c18d6b20eb583a529b1863fb907222 100644 (file)
--- a/basis/io/servers/connection/connection.factor
+++ b/basis/io/servers/connection/connection.factor
@@ -44,7 +44,7 @@ ERROR: server-not-running threaded-server ;
     running-servers get adjoin ;
 
 : remove-running-server ( threaded-server -- )
-    ! must-be-running
+    must-be-running
     running-servers get delete ;
 
 PRIVATE>
@@ -210,9 +210,9 @@ PRIVATE>
     server-stopped>> wait-for-flag ;
 
 : with-threaded-server ( threaded-server quot -- )
-    over
+    [ start-server ] dip over
     '[
-        [ _ start-server threaded-server _ with-variable ]
+        [ _ threaded-server _ with-variable ]
         [ _ stop-server ]
         [ ] cleanup
     ] call ; inline