Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.45
diff -u -u -r1.45 tclExecute.c
--- generic/tclExecute.c	2001/12/11 19:45:52	1.45
+++ generic/tclExecute.c	2002/01/22 21:17:48
@@ -1270,9 +1270,8 @@
 		 */
 
 		for (i = 0;  i < objc;  i++) {
-		    valuePtr = stackPtr[stackTop];
+		    valuePtr = POP_OBJECT();
 		    TclDecrRefCount(valuePtr);
-		    stackTop--;
 		}
 
 		/*
@@ -1787,7 +1786,8 @@
 	    valuePtr = Tcl_NewListObj(opnd, &(stackPtr[stackTop - (opnd-1)]));
 
 	    for (i = 0; i < opnd; i++) {
-		TclDecrRefCount(stackPtr[stackTop--]);
+		value2Ptr = POP_OBJECT();
+		TclDecrRefCount(value2Ptr);
 	    }
 
 	    PUSH_OBJECT(valuePtr);
