use encode-string to write utf8 strings to the stream

diff --git a/extra/bson/writer/writer.factor b/extra/bson/writer/writer.factor
index e02b2c6da23d3d6638ad86af50455c610c8cfd2f..abc4c0f2d2b0795842c2f43b0e8c4f860cd906f9 100644 (file)
--- 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