From b6d968cdeba105b81579dcc7b0fb4c43a08485d8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 31 Jul 2010 18:33:39 -0400
Subject: [PATCH] time-server: main word should not return immediately
 (reported by Alec Barryman)

---
 extra/time-server/time-server.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/time-server/time-server.factor b/extra/time-server/time-server.factor
index 500f0276d7..897d5ae155 100644
--- a/extra/time-server/time-server.factor
+++ b/extra/time-server/time-server.factor
@@ -13,7 +13,7 @@ IN: time-server
         1234 >>insecure
         [ handle-time-client ] >>handler ;
 
-: start-time-server ( -- threaded-server )
-    <time-server> [ start-server ] in-thread ;
+: start-time-server ( -- )
+    <time-server> start-server ;
 
 MAIN: start-time-server