Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.149
diff -u -r1.149 tclCmdMZ.c
--- generic/tclCmdMZ.c	20 Apr 2007 05:51:10 -0000	1.149
+++ generic/tclCmdMZ.c	1 May 2007 20:17:14 -0000
@@ -1887,6 +1887,7 @@
 	    for (i=2 ; i<mapElemc ; i+=2) {
 		Tcl_DictObjNext(&search, mapElemv+i, mapElemv+i+1, &done);
 	    }
+	    Tcl_DictObjDone(&search);
 	} else {
 	    if (Tcl_ListObjGetElements(interp, objv[objc-2],
 		    &mapElemc, &mapElemv) != TCL_OK) {
