Index: TODO
===================================================================
diff -u -r47a15b921dd9cd528789a2ae33a3eb841f7356c2 -r841e805480b4e7d445a61269249de9007112320d
--- TODO	(.../TODO)	(revision 47a15b921dd9cd528789a2ae33a3eb841f7356c2)
+++ TODO	(.../TODO)	(revision 841e805480b4e7d445a61269249de9007112320d)
@@ -4790,9 +4790,13 @@
 - add more assertions
 - ensure computation of requires orders for recursive merges
 
-mongodb
+mongodb:
 - add flag "-puts" to method "show" of nx::mongo::Class to turnoff 
   output to stdout
+- handle empty find operations for "find first"
+- added method pretty_variables to output available variables
+  of a class in a similar style as in the definition
+- added low-level method "close" to nx::mongo
 ========================================================================
 TODO:
 
Index: generic/nsf.c
===================================================================
diff -u -r00c40339a2fee2c2416a881d19b61e3aa92e963d -r841e805480b4e7d445a61269249de9007112320d
--- generic/nsf.c	(.../nsf.c)	(revision 00c40339a2fee2c2416a881d19b61e3aa92e963d)
+++ generic/nsf.c	(.../nsf.c)	(revision 841e805480b4e7d445a61269249de9007112320d)
@@ -2078,7 +2078,7 @@
       NsfClassListPrint("plFinal:", pl);
 #endif
 
-      if (sl && sl->nextPtr) {
+      if (sl->nextPtr) {
 	// use pl as new base list
 	baseList = pl;
 
Index: generic/nsfPointer.c
===================================================================
diff -u -rcccc5946bad0d090e11893fee5761bf0c87428d9 -r841e805480b4e7d445a61269249de9007112320d
--- generic/nsfPointer.c	(.../nsfPointer.c)	(revision cccc5946bad0d090e11893fee5761bf0c87428d9)
+++ generic/nsfPointer.c	(.../nsfPointer.c)	(revision 841e805480b4e7d445a61269249de9007112320d)
@@ -333,13 +333,14 @@
 
 void
 Nsf_PointerExit(Tcl_Interp *interp) {
-    Tcl_HashEntry *hPtr;
-    Tcl_HashSearch hSrch;
 
     NsfMutexLock(&pointerMutex);
     if (--pointerTableRefCount == 0) {
 
       if (RUNTIME_STATE(interp)->debugLevel >= 2) {
+	Tcl_HashSearch hSrch;
+	Tcl_HashEntry *hPtr;
+
 	for (hPtr = Tcl_FirstHashEntry(pointerHashTablePtr, &hSrch); hPtr;
 	     hPtr = Tcl_NextHashEntry(&hSrch)) {
 	  char *key = Tcl_GetHashKey(pointerHashTablePtr, hPtr);