add missing :mongo parameter

src/bson-decode.lisp

@@ -74,7 +74,7 @@
                  (setf (gethash key ht) (byte-to-bool (elt array pos)))
                  (incf pos 1))
                 ((= type +bson-data-date+)
-                 (setf (gethash key ht) (make-bson-time (octet-to-uint64.1 array pos)))
+                 (setf (gethash key ht) (make-bson-time (octet-to-int64.1 array pos)))
                  (incf pos 8))  
                 ((= type +bson-data-null+)
                  (setf (gethash key ht) nil))

src/db.lisp

@@ -278,7 +278,8 @@ Create an index specified by the keys in a collection
 		 (kv (kv "ns"   (full-collection-name mongo collection))
 		     (kv "key"  (force-float index))
 		     (spec-gen unique drop-duplicates)
-		     (kv "name" (keys->name (ht->list index))))))))
+		     (kv "name" (keys->name (ht->list index))))
+                 :mongo mongo))))
 
 (defmethod db.ensure-index ((collection string) (index kv-container)
 			    &key (mongo (mongo)) (unique nil) (drop-duplicates nil))

src/shell.lisp

@@ -4,10 +4,10 @@
  shell commands
 |# 
 
-(defun docs (result)
+(defun docs (result &key (mongo (mongo)))
   "Stop the iterator (if any) and return the list of documents returned by the query. 
-Typical ue would be in conjunction with db.find like so (docs (iter (db.find 'foo' 'll)))"
-  (cadr (db.stop result)))
+Typical use would be in conjunction with db.find like so (docs (iter (db.find 'foo' 'll)))"
+  (cadr (db.stop result :mongo mongo)))
 
 (defun iter (result &key (mongo (mongo)) (max-per-call 0))
   "Exhaustively iterate through a query. The maximum number of responses