disambiguate namespaces:set and sets:set.

[factor.git] / extra / managed-server / managed-server.factor

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index b7a73c48320deaac87d6e2bfd60695c8728f0c88..a7414052abe86146d59fa4ab619cce92abdc5627 100644 (file)
--- a/extra/managed-server/managed-server.factor
+++ b/extra/managed-server/managed-server.factor
@@ -77,7 +77,7 @@ PRIVATE>
     [ username server clients>> delete-at ] when-logged-in ;
 
 : handle-managed-client ( -- )
-    handle-login <managed-client> managed-client set
+    handle-login <managed-client> managed-client namespaces:set
     maybe-login-client [
         handle-client-join
         [ handle-managed-client* client quit?>> not ] loop
@@ -92,7 +92,7 @@ PRIVATE>
 PRIVATE>
 
 M: managed-server handle-client*
-    managed-server set
+    managed-server namespaces:set
     [ handle-managed-client ]
     [ cleanup-client ]
     [ ] cleanup ;