really disconnect someone if name is taken

diff --git a/extra/managed-server/chat/chat.factor b/extra/managed-server/chat/chat.factor
index 4e841ec95e19e8a319840e1095eee1f9425812b5..f60445c48f96d8b464bae2df41fadbdcf922f328 100644 (file)
--- a/extra/managed-server/chat/chat.factor
+++ b/extra/managed-server/chat/chat.factor
@@ -126,7 +126,8 @@ M: chat-server handle-client-disconnect
     ] "" append-outputs-as send-everyone ;
 
 M: chat-server handle-already-logged-in
-    username username-taken-string send-line ;
+    username username-taken-string send-line
+    t client (>>quit?) ;
 
 M: chat-server handle-managed-client*
     readln dup f = [ t client (>>quit?) ] when