 
 GENERIC: find ( mdb-query -- cursor result )
 M: mdb-query-msg find
-    send-query ;
+    fix-query-collection send-query ;
 M: mdb-cursor find
     get-more ;
 

    [ [ (ensure-collection) ] keep ] unless
    [ mdb-instance name>> ] dip "%s.%s" sprintf ; inline

PRIVATE>

: <query> ( collection query -- mdb-query )


GENERIC: find-one ( mdb-query -- result/f )
M: mdb-query-msg find-one
    fix-query-collection 
    1 >>return# send-query-plain objects>>
    dup empty? [ drop f ] [ first ] if ;

