From 0e2b60bf89c7936845028d9bc585b7c1ccb426bd Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Sat, 31 Jan 2009 16:06:49 +0100
Subject: [PATCH] fixed ismastercmd

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

diff --git a/mongodb/connection/connection.factor b/mongodb/connection/connection.factor
index c32a183c40..6e608dcb63 100644
--- a/mongodb/connection/connection.factor
+++ b/mongodb/connection/connection.factor
@@ -22,8 +22,8 @@ TUPLE: mdb name nodes collections ;
 <PRIVATE
 
 : ismaster-cmd ( node -- result )
-    binary "admin.$cmd" H{ { "ismaster" 1 } } <mdb-query-one-msg>
-    '[ _ write-message read-message ] with-client
+    binary "admin.$cmd" H{ { "ismaster" 1 } } <mdb-query-msg>
+    1 >>return# '[ _ write-message read-message ] with-client
     objects>> first ; 
 
 : split-host-str ( hoststr -- host port )