diff --git a/generic/bson.c b/generic/bson.c
index 9804921..c3ed306 100644
--- a/generic/bson.c
+++ b/generic/bson.c
@@ -877,6 +877,7 @@ mongotcl_bsonObjectObjCmd(ClientData cData, Tcl_Interp *interp, int objc, Tcl_Ob
 
 		switch ((enum options) optIndex) {
 			case OPT_INIT: {
+				bson_destroy (bd->bson);
 				bson_init (bd->bson);
 				break;
 			}