Index: generic/tclCompCmds.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCompCmds.c,v
retrieving revision 1.15
diff -u -r1.15 tclCompCmds.c
--- generic/tclCompCmds.c	2001/11/14 23:17:03	1.15
+++ generic/tclCompCmds.c	2001/11/19 12:21:51
@@ -1955,6 +1955,7 @@
 	    }
 	    valueTokenPtr = valueTokenPtr + (valueTokenPtr->numComponents + 1);
 	}
+	envPtr->maxStackDepth = depth;
 	TclEmitInstInt4(INST_LIST, numWords - 1, envPtr);
     }
 
