Você precisa especificar um tamanho de lote maior, o padrão é 256 registros.
Aqui está um exemplo do meu próprio código:
=> (count (with-db (q/find {:keywords "lisa"})
(q/sort {:datetime 1}) ))
256
=> (count (with-db (q/find {:keywords "lisa"})
(q/sort {:datetime 1})
(q/batch-size 1000) ))
688
Veja mais informações aqui:http://clojuremongodb.info/articles/querying.html#setting_batch_size
