Index: library/mongodb/example-nsf-mongo.tcl
===================================================================
diff -u -rbcf94f0b3bac771ebd9a65a8eb9dd6030651bb7e -r9248d253eb37bcefbfa38a1d86df306f40922444
--- library/mongodb/example-nsf-mongo.tcl	(.../example-nsf-mongo.tcl)	(revision bcf94f0b3bac771ebd9a65a8eb9dd6030651bb7e)
+++ library/mongodb/example-nsf-mongo.tcl	(.../example-nsf-mongo.tcl)	(revision 9248d253eb37bcefbfa38a1d86df306f40922444)
@@ -20,7 +20,7 @@
 						   classes array {0 object {$ref string courses $id oid 1}}]
   ::mongo::insert $mongoConn tutorial.persons [list name string Gustaf projects string nsf age int 53]
   ::mongo::insert $mongoConn tutorial.persons [list name string Stefan projects string nsf]
-  ::mongo::insert $mongoConn tutorial.persons [list name string Franz info object {x int 203 y int 102} age int 29]
+  ::mongo::insert $mongoConn tutorial.persons [list name string Franz info object {x int 203 y int 102} age int 29 projects string gtat]
   ::mongo::insert $mongoConn tutorial.persons [list name string Victor a array {0 string "x" 1 string "y"} age int 31]
   ::mongo::insert $mongoConn tutorial.persons [list name string Selim ts timestamp {1302945037 1} d date 1302947619279]
 
@@ -48,8 +48,11 @@
 puts  [join [::mongo::query $mongoConn tutorial.persons [list \$query object {a string "x"}]] \n]
 
 puts stderr "\nEmbedded object has some value (info.y > 100)"
-puts  [join [::mongo::query $mongoConn tutorial.persons [list \$query object {info.y object {$gt int 100}}]] \n]
+puts [join [::mongo::query $mongoConn tutorial.persons [list \$query object {info.y object {$gt int 100}}]] \n]
 
+puts stderr "\nProjects in {nsf gtat}"
+puts [join [::mongo::query $mongoConn tutorial.persons [list \$query object {projects object {$in array {0 string nsf 1 string gtat}}}]] \n]
+
 if {0} {
   puts stderr "\nDelete members of project abc"
   ::mongo::remove $mongoConn tutorial.persons [list projects string abc]