fixed sorting

diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index a972d1c38029e9796fd506484e1a28da7cdfe252..967d4f11c5582ec3987cf684eea43abc9435ed44 100644 (file)
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -178,7 +178,7 @@ M: mdb-query-msg skip
 GENERIC# sort 1 ( mdb-query-msg sort-quot -- mdb-query-msg )
 
 M: mdb-query-msg sort
-    output>array >>orderby ; inline
+    output>array [ 1array >hashtable ] map >>orderby ; inline
 
 : key-spec ( spec-quot -- spec-assoc )
     output>array >hashtable ; inline