From ecc2924eb67a17e7587f0fc8b2fcdef2470d7c20 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.(none)>
Date: Sat, 30 May 2009 13:51:03 -0500
Subject: [PATCH] fix a word in managed-server

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

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index ac4e275c9e..7d75976ea5 100644
--- 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>