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 ; - '[ _ write-message read-message ] with-client + binary "admin.$cmd" H{ { "ismaster" 1 } } + 1 >>return# '[ _ write-message read-message ] with-client objects>> first ; : split-host-str ( hoststr -- host port )