From 63302727604cfb311010ccea183eb2b9e3dd0a70 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 7 Mar 2009 22:09:57 -0600
Subject: [PATCH] Fix CGI

---
 basis/http/server/cgi/cgi.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/http/server/cgi/cgi.factor b/basis/http/server/cgi/cgi.factor
index a64fe9af3c..d2f453034a 100644
--- a/basis/http/server/cgi/cgi.factor
+++ b/basis/http/server/cgi/cgi.factor
@@ -53,9 +53,9 @@ IN: http.server.cgi
     "CGI output follows" >>message
     swap '[
         binary encode-output
-        _ output-stream get swap <cgi-process> binary <process-stream> [
+        output-stream get _ <cgi-process> binary <process-stream> [
             post-request? [ request get post-data>> data>> write flush ] when
-            '[ _ write ] each-block
+            '[ _ stream-write ] each-block
         ] with-stream
     ] >>body ;