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;
 }