From 5dacbdaace2803a2712de70598e27ac62f139b8f Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Sat, 31 Jan 2009 16:04:19 +0100
Subject: [PATCH] rewrote (write-message)

---
 mongodb/msg/msg.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mongodb/msg/msg.factor b/mongodb/msg/msg.factor
index 666250b45e..c3b124568d 100644
--- a/mongodb/msg/msg.factor
+++ b/mongodb/msg/msg.factor
@@ -252,8 +252,8 @@ PRIVATE>
 <PRIVATE
 
 : (write-message) ( message quot -- )
-     [ binary ] dip with-byte-writer dup
-     [ length write-header ] dip 
+     [ binary ] dip with-byte-writer 
+     [ length write-header ] keep 
      write flush ; inline
 
 PRIVATE>