From e42479b257a794294215df760b8641bd3436a666 Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Fri, 16 Jul 2010 10:31:20 +0200
Subject: [PATCH] use encode-string to write utf8 strings to the stream

---
 extra/bson/writer/writer.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/bson/writer/writer.factor b/extra/bson/writer/writer.factor
index e02b2c6da2..abc4c0f2d2 100644
--- a/extra/bson/writer/writer.factor
+++ b/extra/bson/writer/writer.factor
@@ -44,7 +44,7 @@ TYPED: write-int32 ( int: integer -- ) INT32-SIZE (>le) ; inline
 TYPED: write-double ( real: float -- ) double>bits INT64-SIZE (>le) ; inline
 
 TYPED: write-utf8-string ( string: string -- )
-    output-stream get utf8 <encoder> stream-write ; inline
+    get-output utf8 encode-string ; inline
 
 TYPED: write-cstring ( string: string -- )
     write-utf8-string 0 write1 ; inline