   (.findOne collection (ObjectId. s)))
 
 (defn distinct-values [#^DBCollection collection s]
-  (seq (.distinct collection #^String (name s))))
+  (seq (.distinct collection (name s))))
 
 (defn delete [#^DBCollection collection obj]
   (.remove collection (db-object obj)))

        cursor (if count? (.count cursor) cursor)]
    (map clojure-object cursor)))

(defnk fetch [#^DBCollection collection query :limit nil :skip nil :include nil :exclude nil :order-by nil :count false]
  (search* collection
           query
           (merge (apply include-keys include) (apply exclude-keys exclude))

(defn ensure-index
  [#^DBCollection collection fields & options]
  (let [o? #(has-option? options %)]
    (.ensureIndex collection #^DBObject
                  (db-object fields)
                  (boolean (o? :force))
                  (boolean (o? :unique)))))

(defn drop-index [#^DBCollection collection o]
  (.dropIndex collection #^DBObject (db-object o)))
