Index: TODO
===================================================================
diff -u -rabadc1cb1c47f10d224a31aac949d06d53704df7 -r11a710e482b254fe98e3574a34e070c30d2e6ae5
--- TODO	(.../TODO)	(revision abadc1cb1c47f10d224a31aac949d06d53704df7)
+++ TODO	(.../TODO)	(revision 11a710e482b254fe98e3574a34e070c30d2e6ae5)
@@ -3155,6 +3155,7 @@
   * copy returns now the fully qualified name of the copied object
   * extended regression test
 
+- library/mongodb:updated to current interface in git HEAD 
 
 TODO:
  - implementation of [C copy] (without a 2nd argument, 
Index: library/mongodb/nsfmongo.c
===================================================================
diff -u -r41a6357847d300659009788996b1753668697e13 -r11a710e482b254fe98e3574a34e070c30d2e6ae5
--- library/mongodb/nsfmongo.c	(.../nsfmongo.c)	(revision 41a6357847d300659009788996b1753668697e13)
+++ library/mongodb/nsfmongo.c	(.../nsfmongo.c)	(revision 11a710e482b254fe98e3574a34e070c30d2e6ae5)
@@ -888,12 +888,13 @@
 NsfMongoGridFSStoreFile(Tcl_Interp *interp, gridfs *gridfsPtr, 
 			CONST char *filename, CONST char *remotename, 
 			CONST char *contenttype) {
-  bson b = gridfs_store_file(gridfsPtr, filename, remotename, contenttype);
+  int result = gridfs_store_file(gridfsPtr, filename, remotename, contenttype);
   
-  /* currently, the result is broken;
+  /* currently, we do not get the bson structure;
      Tcl_SetObjResult(interp, BsonToList(interp, b.data, 0));*/
 
-  
+  Tcl_SetObjResult(interp, Tcl_NewIntObj(result == MONGO_OK));
+
   return TCL_OK;
 }