fix a word in managed-server

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index ac4e275c9ef88893cfd887a503ecc79d7c0a099a..7d75976ea5e7fa3fc6f5e6c7e6d1820b750a0841 100644 (file)
--- a/extra/managed-server/managed-server.factor
+++ b/extra/managed-server/managed-server.factor
@@ -37,8 +37,8 @@ ERROR: no-such-client username ;
 
 <PRIVATE
 
-: (send-client) ( seq managed-client -- )
-    swap output-stream>> '[ _ print flush ] with-output-stream* ;
+: (send-client) ( managed-client seq -- )
+    [ output-stream>> ] dip '[ _ print flush ] with-output-stream* ;
 
 PRIVATE>