diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index 0dd73aeda8..eebfb10c5c 100644
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -98,10 +98,12 @@ SYNTAX: r/ ( token -- mdbregexp )
     [ <mdb-pool> ] dip
     [ mdb-pool swap with-variable ] curry with-disposal ; inline
 
-: with-mdb-connection ( quot -- )
-    [ mdb-pool get ] dip 
+: with-mdb-pool ( ..a mdb-pool quot -- ..b )
     '[ _ with-connection ] with-pooled-connection ; inline
 
+: with-mdb-connection ( quot -- )
+    [ mdb-pool get ] dip with-mdb-pool ; inline
+
 : >id-selector ( assoc -- selector )
     [ MDB_OID_FIELD swap at ] keep
     H{ } clone [ set-at ] keep ;