Index: library/mongodb/nx-mongo.tcl
===================================================================
diff -u -r788f2f577d21a28e0d6a05ca87562a507d929527 -rac40ee26a10c8af766c0b2c2fdd61b76cbb70ef1
--- library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 788f2f577d21a28e0d6a05ca87562a507d929527)
+++ library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision ac40ee26a10c8af766c0b2c2fdd61b76cbb70ef1)
@@ -541,7 +541,9 @@
     }
 
     :public method "bson create" {{-name ""} tuple} {
-      ::nsf::object::alloc [self] $name [:bson setvalues $tuple]
+      set o [::nsf::object::alloc [self] $name [:bson setvalues $tuple]]
+      $o eval :init
+      return $o
     }
 
     :method "bson pp_array" {{-indent 0} list} {