fixed find-one - now returns a result or f

diff --git a/mongodb/driver/driver.factor b/mongodb/driver/driver.factor
index 430f94f0cd8407146b62318b9a7fe82e7109953c..2f3f8406a30e1b2962ddb2cc410ff08e5addd2f8 100644 (file)
--- a/mongodb/driver/driver.factor
+++ b/mongodb/driver/driver.factor
@@ -234,9 +234,9 @@ M: mdb-query-msg explain.
     t >>explain find nip . ;
 
 
-GENERIC: find-one ( mdb-query -- result )
+GENERIC: find-one ( mdb-query -- result/f )
 M: mdb-query-msg find-one
-    1 >>return# send-query-plain ;
+    1 >>return# send-query-plain objects>> [ first ] [ f ] if* ;
 
 GENERIC: count ( collection query -- result )
 M: assoc count