Index: library/mongodb/nx-mongo.tcl
===================================================================
diff -u -r9429c5df49a931d4821dea2c429e127355eed366 -r5d495b6d0bd173ab082c1e3b4eb5d0d3e24c82d2
--- library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 9429c5df49a931d4821dea2c429e127355eed366)
+++ library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 5d495b6d0bd173ab082c1e3b4eb5d0d3e24c82d2)
@@ -589,7 +589,7 @@
       set result [next [list -accessor $accessor -class $class \
                             -configurable $configurable -incremental=$incremental \
                             $spec $initblock]]
-      lassign [::nx::MetaSlot parseParameterSpec $spec] name 
+      lassign [::nx::MetaSlot parseParameterSpec [self] $spec] name
       [:info slots $name] configure -rep $rep
       return $result
     }
@@ -609,7 +609,7 @@
                             -configurable $configurable -incremental=$incremental \
                             -initblock $initblock $spec \
                             {*}[expr {[info exists defaultValue] ? [list $defaultValue] : ""}]]]
-      lassign [::nx::MetaSlot parseParameterSpec $spec] name 
+      lassign [::nx::MetaSlot parseParameterSpec [self] $spec] name
       [:info slots $name] configure -rep $rep
       return $result
     }