diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index 294672523c..e1bf4f6746 100644
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -193,6 +193,9 @@ M: mdb-query-msg skip
 : sort ( mdb-query-msg sort-quot -- mdb-query-msg )
     output>array [ 1array >hashtable ] map >>orderby ; inline
 
+: filter-fields ( mdb-query-msg filterseq -- mdb-query-msg )
+    [ asc ] map >hashtable >>returnfields ; inline
+
 : key-spec ( spec-quot -- spec-assoc )
     output>array >hashtable ; inline