Index: library/mongodb/nx-mongo.tcl
===================================================================
diff -u -rac40ee26a10c8af766c0b2c2fdd61b76cbb70ef1 -r9429c5df49a931d4821dea2c429e127355eed366
--- library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision ac40ee26a10c8af766c0b2c2fdd61b76cbb70ef1)
+++ library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 9429c5df49a931d4821dea2c429e127355eed366)
@@ -229,7 +229,7 @@
     # The methods "bson encode|decode" perform the low level type
     # mapping. For now, this handles just the array notation.
     #
-    :method "bson decode" {bsontype value} {
+    :public method "bson decode" {bsontype value} {
       #puts stderr "bson decode of ${:name} /$bsontype/ '$value'"
       if {$bsontype eq "array"} {
 	if {![:isMultivalued]} {
@@ -416,7 +416,7 @@
     # (property name or operator name) internal representations
     # (eg. mongo type, or mongo operator).
     #
-    :method "get slot" {att} {
+    :public method "get slot" {att} {
       set classes [concat [self] [:info mixins] [:info heritage]]
       foreach cls $classes {
 	set slot [$cls info slots $att]
@@ -849,7 +849,7 @@
     #
     # Encode all object data in bson notation
     #
-    :method "bson encode" {{-ignore ""}} {
+    :public method "bson encode" {{-ignore ""}} {
       set bson [list]
       set cls [:info class]
       foreach var [:info vars] {