From d3aa7812bf88e5f55a9eed06312430322b420709 Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Tue, 1 Jun 2010 20:07:09 +0200
Subject: [PATCH] fix for changed mongodb behaviour

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

diff --git a/extra/mongodb/connection/connection.factor b/extra/mongodb/connection/connection.factor
index 30831608287..2918d586649 100644
--- a/extra/mongodb/connection/connection.factor
+++ b/extra/mongodb/connection/connection.factor
@@ -26,7 +26,7 @@ CONSTRUCTOR: mdb-connection ( instance -- mdb-connection ) ;
 
 : check-ok ( result -- errmsg ? )
     [ [ "errmsg" ] dip at ] 
-    [ [ "ok" ] dip at >integer 1 = ] bi ; inline 
+    [ [ "ok" ] dip at ] bi ; inline 
 
 : <mdb-db> ( name nodes -- mdb-db )
     mdb-db new swap >>nodes swap >>name H{ } clone >>collections ;