Index: library/mongodb/nx-mongo.tcl =================================================================== diff -u -N -r5d495b6d0bd173ab082c1e3b4eb5d0d3e24c82d2 -r5ac8b0931acfe8d0ef93054dafa03f4501868d31 --- library/mongodb/nx-mongo.tcl (.../nx-mongo.tcl) (revision 5d495b6d0bd173ab082c1e3b4eb5d0d3e24c82d2) +++ library/mongodb/nx-mongo.tcl (.../nx-mongo.tcl) (revision 5ac8b0931acfe8d0ef93054dafa03f4501868d31) @@ -589,7 +589,7 @@ set result [next [list -accessor $accessor -class $class \ -configurable $configurable -incremental=$incremental \ $spec $initblock]] - lassign [::nx::MetaSlot parseParameterSpec [self] $spec] name + lassign [::nx::MetaSlot parseParameterSpec -target [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 [self] $spec] name + lassign [::nx::MetaSlot parseParameterSpec -target [self] $spec] name [:info slots $name] configure -rep $rep return $result }