*** generic/tclCmdMZ.c.orig	Fri Oct 12 15:39:16 2001
--- generic/tclCmdMZ.c	Fri May 17 16:41:12 2002
***************
*** 363,368 ****
--- 363,369 ----
  		}
  	    } else {
  		Tcl_Obj *valuePtr;
+ 		/* 5/17/2002 rick: After this call the interp result has changed, so resultPtr is invalid */
  		valuePtr = Tcl_ObjSetVar2(interp, objv[i], NULL, newPtr, 0);
  		if (valuePtr == NULL) {
  		    Tcl_DecrRefCount(newPtr);
***************
*** 403,408 ****
--- 404,411 ----
       */
  
      if (!doinline) {
+ 	/* 5/17/2002 rick: use a valid resultPtr */
+ 	resultPtr = Tcl_GetObjResult(interp);
  	Tcl_SetIntObj(resultPtr, (all ? all-1 : 1));
      }
      return TCL_OK;
