diff --git a/src/monger/collection.clj b/src/monger/collection.clj
index ba55ff3..f28d92a 100644
--- a/src/monger/collection.clj
+++ b/src/monger/collection.clj
@@ -58,7 +58,15 @@
   ([^String collection, ^Map ref, ^List fields]
      (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)
            map-of-fields (fields-to-db-object fields)]
-       (.find ^DBCollection coll ^DBObject (to-db-object ref) ^DBObject (to-db-object map-of-fields)))))
+       (.find ^DBCollection coll ^DBObject (to-db-object ref) ^DBObject (to-db-object map-of-fields))))
+  ([^String collection, ^Map ref, ^List fields, num-to-skip, limit]
+     (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)
+           map-of-fields (fields-to-db-object fields)]
+       (.find ^DBCollection coll ^DBObject (to-db-object ref) ^DBObject (to-db-object map-of-fields) ^long num-to-skip ^long limit)))
+  ([^String collection, ^Map ref, ^List fields, num-to-skip, batch-size, limit]
+     (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)
+           map-of-fields (fields-to-db-object fields)]
+       (.find ^DBCollection coll ^DBObject (to-db-object ref) ^DBObject (to-db-object map-of-fields) ^long num-to-skip ^long batch-size ^long limit))))
 
 (defn ^ISeq find-maps
   ([^String collection]
@@ -66,7 +74,11 @@
   ([^String collection, ^Map ref]
      (map (fn [x] (from-db-object x true)) (seq (find collection ref))))
   ([^String collection, ^Map ref, ^List fields]
-     (map (fn [x] (from-db-object x true)) (seq (find collection ref fields)))))
+     (map (fn [x] (from-db-object x true)) (seq (find collection ref fields))))
+  ([^String collection, ^Map ref, ^List fields, num-to-skip, limit]
+     (map (fn [x] (from-db-object x true)) (seq (find collection ref fields num-to-skip limit))))
+  ([^String collection, ^Map ref, ^List fields, num-to-skip, batch-size, limit]
+     (map (fn [x] (from-db-object x true)) (seq (find collection ref fields num-to-skip batch-size limit)))))
 
 (defn ^ISeq find-seq
   ([^String collection]
diff --git a/test/monger/test/querying.clj b/test/monger/test/querying.clj
new file mode 100644
index 0000000..ec431e0
--- /dev/null
+++ b/test/monger/test/querying.clj
@@ -0,0 +1,76 @@
+(set! *warn-on-reflection* true)
+
+(ns monger.test.querying
+  (:import  [com.mongodb WriteResult WriteConcern DBCursor DBObject CommandResult$CommandFailure]
+            [org.bson.types ObjectId]
+            [java.util Date])
+  (:require [monger core util]
+            [monger.collection :as mgcol]
+            [monger.result     :as mgres])
+  (:use [clojure.test]
+        [monger.test.fixtures]
+        [monger.conversion]))
+
+
+(defn purge-locations-collection
+  [f]
+  (purge-collection "locations" f))
+
+(use-fixtures :each purge-docs-collection purge-things-collection purge-locations-collection)
+
+(monger.core/set-default-write-concern! WriteConcern/SAFE)
+
+
+;;
+;; by ObjectId
+;;
+
+(deftest query-full-document-by-object-id
+  (let [coll "docs"
+        oid  (ObjectId.)
+        doc  { :_id oid :title "Introducing Monger" }]
+    (mgcol/insert coll doc)
+    (is (= doc (mgcol/find-map-by-id coll oid)))
+    (is (= doc (mgcol/find-one-as-map coll { :_id oid })))))
+
+
+;;
+;; exact match over string field
+;;
+
+(deftest query-full-document-using-exact-matching-over-string-field
+  (let [coll "docs"
+        doc  { :title "monger" :language "Clojure" :_id (ObjectId.) }]
+    (mgcol/insert coll doc)
+    (is (= [doc] (mgcol/find-maps coll { :title "monger" })))
+    (is (= doc (from-db-object (first (mgcol/find coll { :title "monger" })) true)))))
+
+
+;;
+;; exact match over string field with limit
+;;
+
+(deftest query-full-document-using-exact-matching-over-string-field-with-limit
+  (let [coll "docs"
+        doc1  { :title "monger"  :language "Clojure" :_id (ObjectId.) }
+        doc2  { :title "langohr" :language "Clojure" :_id (ObjectId.) }
+        doc3  { :title "netty"   :language "Java" :_id (ObjectId.) }
+        _     (mgcol/insert-batch coll [doc1 doc2 doc3])
+        result (mgcol/find-maps coll { :title "monger" } {} 0 1)]
+    (is (= 1 (count result)))
+    (is (= [doc1] result))))
+
+
+(deftest query-full-document-using-exact-matching-over-string-field-with-limit-and-offset
+  (let [coll "docs"
+        doc1  { :title "lucene"    :language "Java" :_id (ObjectId.) }
+        doc2  { :title "joda-time" :language "Java" :_id (ObjectId.) }
+        doc3  { :title "netty"     :language "Java" :_id (ObjectId.) }
+        _     (mgcol/insert-batch coll [doc1 doc2 doc3])
+        ;; this example is indeed ugly, we need to come up with a DSL similar to what Casbah has
+        ;; to make this easy to read and write. MK.
+        result (from-db-object (seq (.sort (mgcol/find coll { :language "Java" } {} 1 2)
+                                           (to-db-object { :title 1 })))
+                               true)]
+    (is (= 2 (count result)))
+    (is (= [doc1 doc3] result))))
\ No newline at end of file