Index: library/mongodb/nx-mongo.tcl
===================================================================
diff -u -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 -ra467cf37f204cc977b7af7519a0994c65f9ed10f
--- library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision a24e1f836c3126d0a0e9467bde3a9fa8da901711)
+++ library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision a467cf37f204cc977b7af7519a0994c65f9ed10f)
@@ -220,7 +220,7 @@
     :method "get slot" {att} {
       set classes [concat [self] [:info mixin classes] [:info heritage]]
       foreach cls $classes {
-	set slot [$cls info slots $att]
+	set slot [$cls info slot objects $att]
 	if {$slot ne ""} {
 	  return $slot
 	}