Index: library/mongodb/nsfmongo.c
===================================================================
diff -u -r4e80fb687a82af0fc9ac0d109863931f4910de4a -rec5702daf07d4f8ed37deb09198ebff5b3fbb1bf
--- library/mongodb/nsfmongo.c	(.../nsfmongo.c)	(revision 4e80fb687a82af0fc9ac0d109863931f4910de4a)
+++ library/mongodb/nsfmongo.c	(.../nsfmongo.c)	(revision ec5702daf07d4f8ed37deb09198ebff5b3fbb1bf)
@@ -300,12 +300,12 @@
       elemObj = Tcl_NewByteArrayObj(bytes, (int)length);
       break;
     }
-    case BSON_TYPE_CODE:       /* fall through */
-    case BSON_TYPE_CODEWSCOPE: /* fall through */
-    case BSON_TYPE_DBPOINTER:  /* fall through */
-    case BSON_TYPE_EOD:        /* fall through */
-    case BSON_TYPE_SYMBOL:     /* fall through */
-    case BSON_TYPE_UNDEFINED:  /* fall through */
+    case BSON_TYPE_CODE:       NSF_FALL_THROUGH; /* fall through */
+    case BSON_TYPE_CODEWSCOPE: NSF_FALL_THROUGH; /* fall through */
+    case BSON_TYPE_DBPOINTER:  NSF_FALL_THROUGH; /* fall through */
+    case BSON_TYPE_EOD:        NSF_FALL_THROUGH; /* fall through */
+    case BSON_TYPE_SYMBOL:     NSF_FALL_THROUGH; /* fall through */
+    case BSON_TYPE_UNDEFINED:  NSF_FALL_THROUGH; /* fall through */
     default:
       tag = NSF_BSON_UNKNOWN;
       elemObj = Tcl_NewStringObj("", 0);