Index: library/mongodb/example-nx-reference-many.tcl =================================================================== diff -u -r8f4ba2af8b01697a3aab727a2794cb3b456d6632 -r9248d253eb37bcefbfa38a1d86df306f40922444 --- library/mongodb/example-nx-reference-many.tcl (.../example-nx-reference-many.tcl) (revision 8f4ba2af8b01697a3aab727a2794cb3b456d6632) +++ library/mongodb/example-nx-reference-many.tcl (.../example-nx-reference-many.tcl) (revision 9248d253eb37bcefbfa38a1d86df306f40922444) @@ -52,8 +52,8 @@ # Retrieve the entry from the database: set g [Group find first -cond {name = "grp2"}] set members [list] -foreach m [$g members] { - lappend members [Member find first -cond [list _id = $m]] +foreach m [Member find all -cond [list _id in [$g members]]] { + lappend members $m } puts stderr "Members of group [$g name]:" foreach m $members {puts stderr "\t[$m name]"}